Equirectangular approximation to distance on a great circle

Time bar (total: 17.9s)

analyze819.0ms (4.6%)

Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
0%0%99.8%0.2%0%0%0%0
0%0%99.8%0.2%0%0%0%1
0%0%99.8%0.2%0%0%0%2
0%0%99.8%0.2%0%0%0%3
0%0%99.8%0.2%0%0%0%4
0%0%99.8%0.2%0%0%0%5
0%0%99.8%0.2%0%0%0%6
0%0%99.8%0.2%0%0%0%7
0%0%99.8%0.2%0%0%0%8
0%0%99.8%0.2%0%0%0%9
3.1%3.1%96.6%0.2%0%0%0%10
15.6%15.6%84.2%0.2%0%0%0%11
15.6%15.6%84.2%0.2%0%0%0%12
Compiler

Compiled 38 to 18 computations (52.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 390.0ms
ival-mult: 141.0ms (36.1% of total)
ival-sqrt: 69.0ms (17.7% of total)
ival-add: 63.0ms (16.1% of total)
ival-sub: 42.0ms (10.8% of total)
ival-cos: 40.0ms (10.3% of total)
ival-div: 28.0ms (7.2% of total)
const: 4.0ms (1% of total)
backward-pass: 2.0ms (0.5% of total)

sample2.2s (12.3%)

Results
1.0s6194×0valid
737.0ms2062×1valid
Precisions
Click to see histograms. Total time spent on operations: 1.2s
ival-mult: 373.0ms (31% of total)
ival-cos: 209.0ms (17.4% of total)
ival-sub: 168.0ms (14% of total)
ival-add: 154.0ms (12.8% of total)
ival-div: 136.0ms (11.3% of total)
ival-sqrt: 83.0ms (6.9% of total)
backward-pass: 67.0ms (5.6% of total)
const: 13.0ms (1.1% of total)
Bogosity

preprocess258.0ms (1.4%)

Algorithm
2×egg-herbie
Rules
2004×sum3-define
1996×+-lowering-+.f64
1996×+-lowering-+.f32
1890×--lowering--.f32
1890×--lowering--.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0150349
1382347
2909343
34376341
01716
13316
27116
327016
4129016
5427016
0811016
Stop Event
1×iter limit
1×node limit
1×node limit
Calls
Call 1
Inputs
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
Outputs
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
Call 2
Inputs
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(* (neg R) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(* R (sqrt (+ (* (* (- (neg lambda1) lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- (neg lambda1) lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(* R (sqrt (+ (* (* (- lambda1 (neg lambda2)) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 (neg lambda2)) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ (neg phi1) phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ (neg phi1) phi2) 2)))) (* (- (neg phi1) phi2) (- (neg phi1) phi2)))))
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 (neg phi2)) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 (neg phi2)) 2)))) (* (- phi1 (neg phi2)) (- phi1 (neg phi2))))))
(neg (* (neg R) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))))
(neg (* R (sqrt (+ (* (* (- (neg lambda1) lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- (neg lambda1) lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))))
(neg (* R (sqrt (+ (* (* (- lambda1 (neg lambda2)) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 (neg lambda2)) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))))
(neg (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ (neg phi1) phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ (neg phi1) phi2) 2)))) (* (- (neg phi1) phi2) (- (neg phi1) phi2))))))
(neg (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 (neg phi2)) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 (neg phi2)) 2)))) (* (- phi1 (neg phi2)) (- phi1 (neg phi2)))))))
(* lambda1 (sqrt (+ (* (* (- R lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- R lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(* lambda2 (sqrt (+ (* (* (- lambda1 R) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 R) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(* phi1 (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ R phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ R phi2) 2)))) (* (- R phi2) (- R phi2)))))
(* phi2 (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 R) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 R) 2)))) (* (- phi1 R) (- phi1 R)))))
(* R (sqrt (+ (* (* (- lambda2 lambda1) (cos (/ (+ phi1 phi2) 2))) (* (- lambda2 lambda1) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(* R (sqrt (+ (* (* (- phi1 lambda2) (cos (/ (+ lambda1 phi2) 2))) (* (- phi1 lambda2) (cos (/ (+ lambda1 phi2) 2)))) (* (- lambda1 phi2) (- lambda1 phi2)))))
(* R (sqrt (+ (* (* (- phi2 lambda2) (cos (/ (+ phi1 lambda1) 2))) (* (- phi2 lambda2) (cos (/ (+ phi1 lambda1) 2)))) (* (- phi1 lambda1) (- phi1 lambda1)))))
(* R (sqrt (+ (* (* (- lambda1 phi1) (cos (/ (+ lambda2 phi2) 2))) (* (- lambda1 phi1) (cos (/ (+ lambda2 phi2) 2)))) (* (- lambda2 phi2) (- lambda2 phi2)))))
(* R (sqrt (+ (* (* (- lambda1 phi2) (cos (/ (+ phi1 lambda2) 2))) (* (- lambda1 phi2) (cos (/ (+ phi1 lambda2) 2)))) (* (- phi1 lambda2) (- phi1 lambda2)))))
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi2 phi1) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi2 phi1) 2)))) (* (- phi2 phi1) (- phi2 phi1)))))
Outputs
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(* R (hypot (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (- phi1 phi2)))
(* (neg R) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(* (hypot (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (- phi1 phi2)) (neg R))
(* R (sqrt (+ (* (* (- (neg lambda1) lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- (neg lambda1) lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(* R (hypot (- phi1 phi2) (* (cos (/ (+ phi1 phi2) 2)) (+ lambda1 lambda2))))
(* R (sqrt (+ (* (* (- lambda1 (neg lambda2)) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 (neg lambda2)) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(* R (hypot (- phi1 phi2) (* (cos (/ (+ phi1 phi2) 2)) (+ lambda1 lambda2))))
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ (neg phi1) phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ (neg phi1) phi2) 2)))) (* (- (neg phi1) phi2) (- (neg phi1) phi2)))))
(* R (hypot (* (- lambda1 lambda2) (cos (/ (- phi2 phi1) 2))) (+ phi1 phi2)))
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 (neg phi2)) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 (neg phi2)) 2)))) (* (- phi1 (neg phi2)) (- phi1 (neg phi2))))))
(* R (hypot (* (- lambda1 lambda2) (cos (/ (- phi1 phi2) 2))) (+ phi1 phi2)))
(neg (* (neg R) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))))
(* R (hypot (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (- phi1 phi2)))
(neg (* R (sqrt (+ (* (* (- (neg lambda1) lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- (neg lambda1) lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))))
(* (neg R) (hypot (- phi1 phi2) (* (cos (/ (+ phi1 phi2) 2)) (+ lambda1 lambda2))))
(neg (* R (sqrt (+ (* (* (- lambda1 (neg lambda2)) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 (neg lambda2)) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))))
(* (neg R) (hypot (- phi1 phi2) (* (cos (/ (+ phi1 phi2) 2)) (+ lambda1 lambda2))))
(neg (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ (neg phi1) phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ (neg phi1) phi2) 2)))) (* (- (neg phi1) phi2) (- (neg phi1) phi2))))))
(* (neg R) (hypot (* (- lambda1 lambda2) (cos (/ (- phi2 phi1) 2))) (+ phi1 phi2)))
(neg (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 (neg phi2)) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 (neg phi2)) 2)))) (* (- phi1 (neg phi2)) (- phi1 (neg phi2)))))))
(* (neg R) (hypot (* (- lambda1 lambda2) (cos (/ (- phi1 phi2) 2))) (+ phi1 phi2)))
(* lambda1 (sqrt (+ (* (* (- R lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- R lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(* lambda1 (hypot (- phi1 phi2) (* (cos (/ (+ phi1 phi2) 2)) (- R lambda2))))
(* lambda2 (sqrt (+ (* (* (- lambda1 R) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 R) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(* lambda2 (hypot (- phi1 phi2) (* (cos (/ (+ phi1 phi2) 2)) (- lambda1 R))))
(* phi1 (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ R phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ R phi2) 2)))) (* (- R phi2) (- R phi2)))))
(* phi1 (hypot (* (- lambda1 lambda2) (cos (/ (+ R phi2) 2))) (- R phi2)))
(* phi2 (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 R) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 R) 2)))) (* (- phi1 R) (- phi1 R)))))
(* phi2 (hypot (* (- lambda1 lambda2) (cos (/ (+ R phi1) 2))) (- phi1 R)))
(* R (sqrt (+ (* (* (- lambda2 lambda1) (cos (/ (+ phi1 phi2) 2))) (* (- lambda2 lambda1) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(* R (hypot (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (- phi1 phi2)))
(* R (sqrt (+ (* (* (- phi1 lambda2) (cos (/ (+ lambda1 phi2) 2))) (* (- phi1 lambda2) (cos (/ (+ lambda1 phi2) 2)))) (* (- lambda1 phi2) (- lambda1 phi2)))))
(* R (hypot (* (- phi1 lambda2) (cos (/ (+ lambda1 phi2) 2))) (- lambda1 phi2)))
(* R (sqrt (+ (* (* (- phi2 lambda2) (cos (/ (+ phi1 lambda1) 2))) (* (- phi2 lambda2) (cos (/ (+ phi1 lambda1) 2)))) (* (- phi1 lambda1) (- phi1 lambda1)))))
(* R (hypot (* (- phi2 lambda2) (cos (/ (+ lambda1 phi1) 2))) (- phi1 lambda1)))
(* R (sqrt (+ (* (* (- lambda1 phi1) (cos (/ (+ lambda2 phi2) 2))) (* (- lambda1 phi1) (cos (/ (+ lambda2 phi2) 2)))) (* (- lambda2 phi2) (- lambda2 phi2)))))
(* R (hypot (* (- lambda1 phi1) (cos (/ (+ lambda2 phi2) 2))) (- lambda2 phi2)))
(* R (sqrt (+ (* (* (- lambda1 phi2) (cos (/ (+ phi1 lambda2) 2))) (* (- lambda1 phi2) (cos (/ (+ phi1 lambda2) 2)))) (* (- phi1 lambda2) (- phi1 lambda2)))))
(* R (hypot (- phi1 lambda2) (* (- lambda1 phi2) (cos (/ (+ lambda2 phi1) 2)))))
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi2 phi1) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi2 phi1) 2)))) (* (- phi2 phi1) (- phi2 phi1)))))
(* R (hypot (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (- phi1 phi2)))
Symmetry

(negabs R)

(sort lambda1 lambda2)

(sort phi1 phi2)

explain399.0ms (2.2%)

FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
1880-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))))
66113(1.077223859389998e-73 -8.581868541872785e+174 4.925187478106965e-46 -1.3705392375887276e+145 -2.3635903809744082e-86)0-(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
00-0-(-.f64 phi1 phi2)
00-0-(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))
00-0-(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
00-0-#s(literal 2 binary64)
00-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)))))
00-0-phi1
00-0-lambda1
00-0-(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))
00-0-R
00-0-(-.f64 lambda1 lambda2)
00-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)))
00-0-phi2
00-0-(+.f64 phi1 phi2)
00-0-lambda2
00-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)))))
Results
237.0ms338×1valid
64.0ms174×0valid
Compiler

Compiled 359 to 53 computations (85.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 98.0ms
ival-mult: 30.0ms (30.7% of total)
ival-cos: 19.0ms (19.4% of total)
backward-pass: 14.0ms (14.3% of total)
ival-sub: 11.0ms (11.3% of total)
ival-add: 9.0ms (9.2% of total)
ival-div: 7.0ms (7.2% of total)
ival-sqrt: 7.0ms (7.2% of total)
const: 1.0ms (1% of total)

eval0.0ms (0%)

Compiler

Compiled 21 to 14 computations (33.3% saved)

prune1.0ms (0%)

Alt Table
Click to see full alt table
StatusAccuracyProgram
▶96.2%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
▶58.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)))))
Compiler

Compiled 58 to 31 computations (46.6% saved)

simplify152.0ms (0.8%)

Algorithm
1×egg-herbie
Localize:

Found 8 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(-.f64 lambda1 lambda2)
✓cost-diff0
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
✓cost-diff0
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2))
✓cost-diff0
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
✓cost-diff0
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
✓cost-diff0
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
✓cost-diff7360
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
✓cost-diff7360
(*.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)))))
Rules
1996×+-lowering-+.f64
1996×+-lowering-+.f32
1890×--lowering--.f32
1890×--lowering--.f64
1482×unsub-neg
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
017163
133163
271163
3270163
41290163
54270163
08110163
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(* 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)
(* 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)
lambda1
lambda2
(cos (/ (+ phi1 phi2) 2))
(/ (+ phi1 phi2) 2)
(+ phi1 phi2)
phi1
phi2
2
(- phi1 phi2)
Outputs
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
R
(sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2))
(+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))
(+.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))
(*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos (/ (+ phi1 phi2) 2))
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
(/ (+ phi1 phi2) 2)
(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))
(+ phi1 phi2)
(+.f64 phi1 phi2)
phi1
phi2
2
#s(literal 2 binary64)
(* (- phi1 phi2) (- phi1 phi2))
(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))
(- phi1 phi2)
(-.f64 phi1 phi2)
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
R
(sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2))
(* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos (/ (+ phi1 phi2) 2))
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
(/ (+ phi1 phi2) 2)
(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))
(+ phi1 phi2)
(+.f64 phi1 phi2)
phi1
phi2
2
#s(literal 2 binary64)
(- phi1 phi2)
(-.f64 phi1 phi2)

localize296.0ms (1.7%)

Localize:

Found 8 expressions of interest:

NewMetricScoreProgram
✓accuracy100.0%
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2))
✓accuracy99.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
✓accuracy99.7%
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
✓accuracy77.8%
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
✓accuracy99.8%
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
✓accuracy99.7%
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
✓accuracy77.8%
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
✓accuracy31.8%
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
Results
192.0ms169×1valid
26.0ms87×0valid
Compiler

Compiled 227 to 20 computations (91.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 106.0ms
ival-sqrt: 36.0ms (34% of total)
ival-mult: 21.0ms (19.8% of total)
compiled-spec: 14.0ms (13.2% of total)
backward-pass: 11.0ms (10.4% of total)
ival-cos: 9.0ms (8.5% of total)
ival-add: 6.0ms (5.7% of total)
ival-sub: 5.0ms (4.7% of total)
ival-div: 3.0ms (2.8% of total)
const: 1.0ms (0.9% of total)

series100.0ms (0.6%)

Counts
9 → 408
Calls
Call 1
Inputs
#<alt (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))>
#<alt (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))>
#<alt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))>
#<alt (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))>
#<alt (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))>
#<alt (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))>
#<alt (- lambda1 lambda2)>
#<alt (cos (/ (+ phi1 phi2) 2))>
Outputs
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))>
#<alt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))>
#<alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))>
#<alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))>
#<alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))>
#<alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))>
#<alt (+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (pow phi1 2)>
#<alt (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))>
#<alt (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))>
#<alt (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))>
#<alt (pow phi1 2)>
#<alt (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))>
#<alt (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))>
#<alt (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))>
#<alt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))>
#<alt (+ (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (pow phi2 2)>
#<alt (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))>
#<alt (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (pow phi2 2)>
#<alt (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))>
#<alt (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))>
#<alt (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))>
#<alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))>
#<alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))>
#<alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))>
#<alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
#<alt (* -1 lambda2)>
#<alt (- lambda1 lambda2)>
#<alt (- lambda1 lambda2)>
#<alt (- lambda1 lambda2)>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))>
#<alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))>
#<alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))>
#<alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))>
#<alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))>
#<alt lambda1>
#<alt (+ lambda1 (* -1 lambda2))>
#<alt (+ lambda1 (* -1 lambda2))>
#<alt (+ lambda1 (* -1 lambda2))>
#<alt (* -1 lambda2)>
#<alt (* lambda2 (- (/ lambda1 lambda2) 1))>
#<alt (* lambda2 (- (/ lambda1 lambda2) 1))>
#<alt (* lambda2 (- (/ lambda1 lambda2) 1))>
#<alt (* -1 lambda2)>
#<alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))>
#<alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))>
#<alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))>
#<alt (cos (* 1/2 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
Calls

102 calls:

TimeVariablePointExpression
46.0ms
phi1
@inf
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
4.0ms
phi1
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
3.0ms
R
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
3.0ms
lambda2
@-inf
(+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))
2.0ms
phi2
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))

rewrite292.0ms (1.6%)

Algorithm
1×batch-egg-rewrite
Rules
2952×+-lowering-+.f64
2952×+-lowering-+.f32
2618×*-lowering-*.f32
2618×*-lowering-*.f64
1530×fma-lowering-fma.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
017106
146106
2124106
3476106
42618106
08929106
Stop Event
1×iter limit
1×node limit
Counts
9 → 292
Calls
Call 1
Inputs
(* 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))))
(+ (* (* (- 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))))
(* 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))))
(* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))
(- lambda1 lambda2)
(cos (/ (+ phi1 phi2) 2))
Outputs
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)) R)
(exp.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal 1/2 binary64))) (log.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(sqrt.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(pow.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(pow.f64 (exp.f64 #s(literal 1/2 binary64)) (log.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)))
(+.f64 (*.f64 phi1 (-.f64 phi1 phi2)) (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi2 (-.f64 phi2 phi1))))
(+.f64 (*.f64 phi2 (-.f64 phi2 phi1)) (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))))
(+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) phi2)) (+.f64 (+.f64 (*.f64 phi1 (-.f64 phi1 phi2)) (*.f64 phi2 phi2)) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 phi1 phi2) phi1)) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))) (*.f64 phi2 (-.f64 phi2 phi1)))
(+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi2 (-.f64 phi2 phi1))) (*.f64 phi1 (-.f64 phi1 phi2)))
(+.f64 (+.f64 (*.f64 phi2 (-.f64 phi2 phi1)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 phi1 (-.f64 phi1 phi2))))
(+.f64 (-.f64 (*.f64 phi2 (-.f64 phi2 phi1)) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 phi1 (-.f64 phi1 phi2))))
(+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(+.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(+.f64 (-.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))) (*.f64 phi1 phi2)) (*.f64 phi2 phi2))
(+.f64 (+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))) (*.f64 phi2 phi2)) (*.f64 phi1 (-.f64 #s(literal 0 binary64) phi2)))
(+.f64 (-.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 phi2)) (+.f64 (*.f64 phi1 (-.f64 phi1 phi2)) (*.f64 phi2 phi2)))
(+.f64 (-.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 phi2)) (+.f64 (*.f64 phi2 (-.f64 phi2 phi1)) (*.f64 phi1 phi1)))
(+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 phi1)) (*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 phi1 phi2) phi1)))
(+.f64 (+.f64 (*.f64 phi1 (-.f64 phi1 phi2)) (*.f64 phi2 phi2)) (+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(+.f64 (*.f64 phi1 (+.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 phi1 phi2))) (+.f64 (*.f64 phi2 phi2) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(+.f64 (+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))) #s(literal 0 binary64)) (*.f64 phi2 (-.f64 phi2 phi1)))
(+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (*.f64 phi1 (+.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 phi1 phi2))))
(+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (+.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 phi1 phi2)))) (*.f64 phi2 phi2))
(+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (+.f64 (*.f64 phi1 (-.f64 phi1 phi2)) (*.f64 phi2 phi2))) (*.f64 phi1 (-.f64 #s(literal 0 binary64) phi2)))
(+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 phi1 phi2) phi1))) (*.f64 phi1 phi1))
(+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (+.f64 (*.f64 phi2 (-.f64 phi2 phi1)) (*.f64 phi1 phi1))) (*.f64 phi1 (-.f64 #s(literal 0 binary64) phi2)))
(+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))
(+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(+.f64 (+.f64 (*.f64 phi1 (-.f64 phi1 phi2)) (+.f64 (*.f64 phi2 (-.f64 phi2 phi1)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(+.f64 (+.f64 (*.f64 phi1 (-.f64 phi1 phi2)) (-.f64 (*.f64 phi2 (-.f64 phi2 phi1)) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(+.f64 (+.f64 (*.f64 phi2 (-.f64 phi2 phi1)) (-.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 phi2))) (*.f64 phi1 phi1))
(+.f64 (+.f64 (*.f64 phi2 (-.f64 phi2 phi1)) (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (*.f64 phi1 (-.f64 #s(literal 0 binary64) phi2)))
(+.f64 (+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi2 (-.f64 phi2 phi1))) (*.f64 phi1 (-.f64 #s(literal 0 binary64) phi2))) (*.f64 phi1 phi1))
(+.f64 (+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi2 (-.f64 phi2 phi1))) (*.f64 phi1 phi1)) (*.f64 phi1 (-.f64 #s(literal 0 binary64) phi2)))
(+.f64 (+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 2 binary64)))
(+.f64 (+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))
(+.f64 (+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))))
(+.f64 (+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) #s(literal 0 binary64)) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(+.f64 (+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda2 lambda2))))
(+.f64 (+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (neg.f64 (*.f64 lambda2 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (neg.f64 (*.f64 lambda2 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)))))
(+.f64 (+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (neg.f64 (*.f64 lambda2 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))) (neg.f64 (*.f64 lambda2 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(+.f64 (+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))) (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 2 binary64)))
(+.f64 (+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (neg.f64 (*.f64 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda2))) (neg.f64 (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) lambda2)))
(+.f64 (+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (neg.f64 (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) lambda2))) (neg.f64 (*.f64 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda2)))
(+.f64 (+.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(+.f64 (+.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (*.f64 lambda1 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (*.f64 lambda1 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(+.f64 (+.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (*.f64 lambda1 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)))) (*.f64 lambda1 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(+.f64 (+.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2)))))
(+.f64 (+.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))
(+.f64 (+.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))))
(+.f64 (+.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (*.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))) (pow.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(+.f64 (+.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (*.f64 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda1)) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) lambda1))
(+.f64 (+.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) lambda1)) (*.f64 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda1))
(+.f64 (+.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (+.f64 (-.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))) (*.f64 phi1 phi2)) #s(literal 0 binary64)) (*.f64 phi2 phi2))
(+.f64 (+.f64 (+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))) (*.f64 phi2 phi2)) #s(literal 0 binary64)) (*.f64 phi1 (-.f64 #s(literal 0 binary64) phi2)))
(exp.f64 (log.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(-.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))) (*.f64 phi2 (-.f64 phi1 phi2)))
(-.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))
(-.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(-.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(-.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda2))
(-.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) lambda2))))
(-.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))
(-.f64 (-.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))) (*.f64 phi1 phi2)) (*.f64 phi2 (-.f64 #s(literal 0 binary64) phi2)))
(-.f64 (+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))) (*.f64 phi2 phi2)) (*.f64 phi1 phi2))
(fma.f64 lambda1 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 lambda2 (neg.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (-.f64 lambda1 lambda2) (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (-.f64 lambda1 lambda2) (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 phi1 phi1 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 phi1 phi2) phi1)) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 phi1 (-.f64 phi1 phi2) (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi2 (-.f64 phi2 phi1))))
(fma.f64 phi1 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (+.f64 (*.f64 phi1 (-.f64 phi1 phi2)) (*.f64 phi2 phi2)) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 phi2 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (+.f64 (*.f64 phi1 (-.f64 phi1 phi2)) (*.f64 phi2 phi2)) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 phi2 (-.f64 phi2 phi1) (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 lambda1 lambda2))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (-.f64 phi1 phi2) phi1 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi2 (-.f64 phi2 phi1))))
(fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)))
(fma.f64 (-.f64 phi1 phi2) (-.f64 #s(literal 0 binary64) phi2) (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))))
(fma.f64 (-.f64 #s(literal 0 binary64) phi2) phi1 (+.f64 (+.f64 (*.f64 phi1 (-.f64 phi1 phi2)) (*.f64 phi2 phi2)) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 phi1 phi2) (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))))
(fma.f64 (-.f64 #s(literal 0 binary64) lambda2) (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda1 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (-.f64 lambda1 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (-.f64 #s(literal 0 binary64) lambda2) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 phi1 phi2)) (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))))
(fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 #s(literal -1 binary64) (*.f64 phi1 phi2) (+.f64 (+.f64 (*.f64 phi1 (-.f64 phi1 phi2)) (*.f64 phi2 phi2)) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 lambda1 (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (-.f64 #s(literal 0 binary64) phi1) phi2 (+.f64 (+.f64 (*.f64 phi1 (-.f64 phi1 phi2)) (*.f64 phi2 phi2)) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 lambda1 lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (*.f64 phi2 (-.f64 phi1 phi2)) #s(literal -1 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))))
(fma.f64 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (-.f64 lambda1 lambda2) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (-.f64 lambda1 lambda2) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (-.f64 lambda1 lambda2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1 binary64))) (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) lambda2)) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (-.f64 phi2 phi1) phi2 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 phi1 phi2))))
(fma.f64 (*.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda2) #s(literal -1 binary64) (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (*.f64 phi1 phi2) #s(literal -1 binary64) (+.f64 (+.f64 (*.f64 phi1 (-.f64 phi1 phi2)) (*.f64 phi2 phi2)) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 (*.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) #s(literal -1 binary64)) lambda2 (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1 binary64)))) lambda2 (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) lambda2 (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+.f64 #s(literal 0 binary64) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(+.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 lambda1))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (+.f64 lambda1 (-.f64 lambda1 lambda2)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 (-.f64 lambda1 lambda2))))))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (+.f64 lambda1 (-.f64 lambda1 lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 (-.f64 lambda1 lambda2)))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 (-.f64 lambda1 lambda2))))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) lambda2)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda2 lambda2))))
(+.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 (+.f64 phi1 phi2) #s(literal -2 binary64))))))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2)))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))
(+.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 (-.f64 lambda1 lambda2)))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 (+.f64 phi1 phi2) #s(literal -2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))
(+.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(+.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 lambda1 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (*.f64 lambda1 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(+.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 lambda1 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)))) (*.f64 lambda1 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(+.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2)))))
(+.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (pow.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))
(+.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (pow.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))))
(+.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))) (pow.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(+.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda1)) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) lambda1))
(+.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) lambda1)) (*.f64 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda1))
(+.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 2 binary64)))
(+.f64 (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))
(+.f64 (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))))
(+.f64 (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda2 lambda2))))
(+.f64 (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (neg.f64 (*.f64 lambda2 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (neg.f64 (*.f64 lambda2 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)))))
(+.f64 (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (neg.f64 (*.f64 lambda2 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))) (neg.f64 (*.f64 lambda2 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(+.f64 (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))) (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 2 binary64)))
(+.f64 (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (neg.f64 (*.f64 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda2))) (neg.f64 (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) lambda2)))
(+.f64 (+.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (neg.f64 (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) lambda2))) (neg.f64 (*.f64 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda2)))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal 2 binary64))) (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))))
(-.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))
(-.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(-.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda2))
(-.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) lambda2))))
(-.f64 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))
(fma.f64 lambda1 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 lambda2 (neg.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (-.f64 lambda1 lambda2) (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 lambda1 lambda2))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(fma.f64 (-.f64 #s(literal 0 binary64) lambda2) (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda1 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (-.f64 #s(literal 0 binary64) lambda2) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (cos.f64 (/.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 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 lambda1 (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (-.f64 lambda1 lambda2))) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (-.f64 lambda1 lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 (*.f64 lambda1 (cos.f64 (/.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) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (-.f64 lambda1 lambda2) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (-.f64 lambda1 lambda2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1 binary64))) (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) lambda2)) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda2) #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) #s(literal -1 binary64)) lambda2 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1 binary64)))) lambda2 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) lambda2 (/.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(neg.f64 (*.f64 (-.f64 lambda2 lambda1) (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(neg.f64 (*.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (-.f64 lambda2 lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))))
(/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal -2 binary64))
(pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))
(*.f64 (-.f64 lambda1 lambda2) (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(*.f64 (/.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (-.f64 lambda1 lambda2))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(*.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)) R)
(exp.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal 1/2 binary64))) (log.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(sqrt.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(pow.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(pow.f64 (exp.f64 #s(literal 1/2 binary64)) (log.f64 (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(+.f64 #s(literal 0 binary64) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 (+.f64 phi1 phi2) #s(literal -2 binary64))))))
(+.f64 (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 (+.f64 phi1 phi2) #s(literal -2 binary64)))) (-.f64 lambda1 lambda2)))
(exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))
(-.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(fma.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 lambda2 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda1 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(fma.f64 (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal -1 binary64) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) lambda2 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(neg.f64 (*.f64 (-.f64 lambda2 lambda1) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda2 lambda1)))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))
(+.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))
(+.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64))
(+.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1)
(+.f64 (-.f64 #s(literal 0 binary64) lambda2) (neg.f64 (-.f64 #s(literal 0 binary64) lambda1)))
(+.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2))
(exp.f64 (log.f64 (-.f64 lambda1 lambda2)))
(-.f64 lambda1 lambda2)
(-.f64 #s(literal 0 binary64) (-.f64 lambda2 lambda1))
(fma.f64 lambda2 #s(literal -1 binary64) lambda1)
(fma.f64 #s(literal -1 binary64) lambda2 lambda1)
(neg.f64 (-.f64 lambda2 lambda1))
(*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))
(+.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (neg.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (neg.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 (+.f64 phi1 phi2) #s(literal -2 binary64)))))
(+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal -2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #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)))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (/.f64 phi1 #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)))))
(exp.f64 (log.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
(cos.f64 (/.f64 (+.f64 phi1 phi2) #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)))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(-.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (/.f64 phi1 #s(literal -2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (/.f64 phi1 #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)))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 (+.f64 phi1 phi2) #s(literal -2 binary64)))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))

simplify466.0ms (2.6%)

Algorithm
1×egg-herbie
Rules
6372×*-lowering-*.f32
6372×*-lowering-*.f64
5536×+-lowering-+.f64
5536×+-lowering-+.f32
1360×distribute-lft-in
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
090015458
1321212836
0832712836
Stop Event
1×iter limit
1×node limit
Counts
408 → 408
Calls
Call 1
Inputs
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))
(+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))
(+ (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(pow phi2 2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(pow phi2 2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* -1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
lambda1
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(* -1 lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(* -1 lambda2)
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
Outputs
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (+.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 (*.f64 lambda1 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 lambda1 (-.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 (*.f64 lambda1 lambda1)))) (/.f64 (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda1 lambda1)))) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1)) lambda1)) (neg.f64 lambda1))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))
(+ (* 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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (+.f64 (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 lambda1 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) #s(literal 3 binary64)))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 lambda2 (-.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(*.f64 lambda2 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 R lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (/.f64 (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 lambda2)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda2)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))
(+ (* 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)))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi1) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))
(+ (* 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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (+.f64 (*.f64 phi1 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (+.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (*.f64 R (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(*.f64 phi1 (+.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 phi1 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 (/.f64 phi2 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) (/.f64 (*.f64 R phi2) phi1))))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (+.f64 (*.f64 R phi2) (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) phi1)) phi1)))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 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)))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (+.f64 (*.f64 phi2 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (+.f64 (*.f64 (*.f64 R phi2) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 R (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(*.f64 phi2 (+.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 (*.f64 phi2 phi2)))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))))))
(* -1 (* R phi2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 R (/.f64 (+.f64 (*.f64 R phi1) (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2)))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))
(+ (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)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))
(+ (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)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))) (*.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (+.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2)) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))))
(+ (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))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))) (*.f64 (*.f64 lambda1 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) #s(literal 3 binary64)))))))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1)))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1))) (*.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 lambda2 (*.f64 lambda1 (*.f64 lambda1 lambda1)))))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (/.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1)) (neg.f64 lambda1))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(+ (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)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))
(+ (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)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (+.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))))))
(+ (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))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))) (*.f64 lambda1 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) #s(literal 3 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2)))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(*.f64 lambda2 (+.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 lambda1 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2)))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (*.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (+.f64 (*.f64 phi1 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (+.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(*.f64 phi1 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 phi2 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) (/.f64 phi2 phi1))))
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))) phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) phi1)))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 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)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 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)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (+.f64 (*.f64 phi2 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (+.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 (*.f64 phi2 phi2)))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(* -1 phi2)
(-.f64 #s(literal 0 binary64) phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))) phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) phi2)))
(+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -2 binary64))))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) (*.f64 lambda1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (*.f64 #s(literal -2 binary64) lambda2) lambda1))))
(+ (* 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)))
(+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) (*.f64 lambda1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (*.f64 #s(literal -2 binary64) lambda2) lambda1))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda1)))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(*.f64 (*.f64 lambda1 lambda1) (+.f64 (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda1) (+.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) (*.f64 lambda1 lambda1)) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda1 lambda1))))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(*.f64 (*.f64 lambda1 lambda1) (+.f64 (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda1) (+.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) (*.f64 lambda1 lambda1)) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda1 lambda1))))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda1)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) lambda1)) lambda1)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) lambda1)) lambda1)))
(+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -2 binary64)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 lambda2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 lambda2 (*.f64 #s(literal -2 binary64) lambda1)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+ (* 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)))
(+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 lambda2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 lambda2 (*.f64 #s(literal -2 binary64) lambda1)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda2)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(*.f64 (*.f64 lambda2 lambda2) (+.f64 (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda2) (+.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (*.f64 lambda2 lambda2)) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 lambda2))))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(*.f64 (*.f64 lambda2 lambda2) (+.f64 (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda2) (+.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (*.f64 lambda2 lambda2)) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 lambda2))))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) lambda2)) lambda2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) lambda2)) lambda2)))
(+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))
(+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)) (*.f64 phi1 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)) (*.f64 phi1 (+.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))
(+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)) (*.f64 phi1 (+.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (*.f64 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))))))))))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 phi1) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 phi1) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 phi2 #s(literal 2 binary64)) (/.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) phi1)) phi1)))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 phi2 #s(literal 2 binary64)) (/.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) phi1)) phi1)))
(+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))
(+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 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)))
(+.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 phi2 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 phi2 (+.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 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)))
(+.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 phi2 (+.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 phi2 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))))))))))
(pow phi2 2)
(*.f64 phi2 phi2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 phi1 phi2))))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(*.f64 (*.f64 phi2 phi2) (+.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 phi1 phi2))) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(*.f64 (*.f64 phi2 phi2) (+.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 phi1 phi2))) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))
(pow phi2 2)
(*.f64 phi2 phi2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 phi1 phi2))))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(*.f64 (*.f64 phi2 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 phi1 #s(literal 2 binary64)) (/.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)) phi2)) phi2)))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(*.f64 (*.f64 phi2 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 phi1 #s(literal 2 binary64)) (/.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)) phi2)) phi2)))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -2 binary64)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) (*.f64 lambda1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (*.f64 #s(literal -2 binary64) lambda2) lambda1))))
(+ (* 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)))
(+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) (*.f64 lambda1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (*.f64 #s(literal -2 binary64) lambda2) lambda1))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda1)))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(*.f64 (*.f64 lambda1 lambda1) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda1))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(*.f64 (*.f64 lambda1 lambda1) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda1))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda1)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) lambda1)) lambda1)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) lambda1)) lambda1)))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -2 binary64)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 lambda2 (*.f64 #s(literal -2 binary64) lambda1)))))
(+ (* 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)))
(+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 lambda2 (*.f64 #s(literal -2 binary64) lambda1)))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda2)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(*.f64 (*.f64 lambda2 lambda2) (+.f64 (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda2) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (*.f64 lambda2 lambda2)))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(*.f64 (*.f64 lambda2 lambda2) (+.f64 (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda2) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (*.f64 lambda2 lambda2)))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) lambda2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) lambda2)) lambda2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) lambda2)) lambda2)))
(* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 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)))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi1 (-.f64 (*.f64 phi1 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* 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)))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi1 (-.f64 (*.f64 phi1 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (*.f64 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 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)))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi2 (-.f64 (*.f64 phi2 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(+ (* 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)))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi2 (-.f64 (*.f64 phi2 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 phi2 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (+.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 (*.f64 lambda1 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 lambda1 (-.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 (*.f64 lambda1 lambda1)))) (/.f64 (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda1 lambda1)))) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1)) lambda1)) (neg.f64 lambda1))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))
(+ (* 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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (+.f64 (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 lambda1 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) #s(literal 3 binary64)))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 lambda2 (-.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(*.f64 lambda2 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 R lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (/.f64 (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 lambda2)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda2)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))
(+ (* 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)))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi1) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))
(+ (* 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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (+.f64 (*.f64 phi1 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (+.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (*.f64 R (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(*.f64 phi1 (+.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 phi1 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 (/.f64 phi2 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) (/.f64 (*.f64 R phi2) phi1))))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (+.f64 (*.f64 R phi2) (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) phi1)) phi1)))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 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)))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (+.f64 (*.f64 phi2 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (+.f64 (*.f64 (*.f64 R phi2) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 R (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(*.f64 phi2 (+.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 (*.f64 phi2 phi2)))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))))))
(* -1 (* R phi2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 R (/.f64 (+.f64 (*.f64 R phi1) (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2)))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))
(+ (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)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))
(+ (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)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))) (*.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (+.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2)) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))))
(+ (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))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))) (*.f64 (*.f64 lambda1 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) #s(literal 3 binary64)))))))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1)))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1))) (*.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 lambda2 (*.f64 lambda1 (*.f64 lambda1 lambda1)))))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (/.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1)) (neg.f64 lambda1))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(+ (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)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))
(+ (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)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (+.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))))))
(+ (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))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))) (*.f64 lambda1 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) #s(literal 3 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2)))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(*.f64 lambda2 (+.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 lambda1 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2)))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (*.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (+.f64 (*.f64 phi1 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (+.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(*.f64 phi1 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 phi2 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) (/.f64 phi2 phi1))))
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))) phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) phi1)))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 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)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 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)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (+.f64 (*.f64 phi2 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (+.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 (*.f64 phi2 phi2)))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(* -1 phi2)
(-.f64 #s(literal 0 binary64) phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))) phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) phi2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1)))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1)))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1)))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* 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)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(+ (* 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)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal 1/48 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 lambda1 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 lambda1 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 lambda1 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64)) (neg.f64 lambda1))
lambda1
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 lambda2 (+.f64 (/.f64 lambda1 lambda2) #s(literal -1 binary64)))
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 lambda2 (+.f64 (/.f64 lambda1 lambda2) #s(literal -1 binary64)))
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 lambda2 (+.f64 (/.f64 lambda1 lambda2) #s(literal -1 binary64)))
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) 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))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) 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))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))

eval224.0ms (1.3%)

Compiler

Compiled 39525 to 2810 computations (92.9% saved)

prune260.0ms (1.5%)

Pruning

23 alts after pruning (23 fresh and 0 done)

PrunedKeptTotal
New97323996
Fresh000
Picked202
Done000
Total97523998
Accuracy
100.0%
Counts
998 → 23
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶8.6%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
24.5%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
33.1%
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
37.9%
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
▶55.8%
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
23.6%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
▶11.1%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
58.8%
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
▶99.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 phi1 phi2)))
99.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
84.4%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 phi1 phi2)))
91.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
31.9%
(*.f64 R (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
52.1%
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
8.6%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
24.5%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
23.6%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
11.1%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
53.3%
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
58.1%
(*.f64 R (sqrt.f64 (+.f64 (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
19.6%
(*.f64 R (sqrt.f64 (*.f64 phi2 phi2)))
24.0%
(*.f64 R (sqrt.f64 (*.f64 phi1 phi1)))
▶28.9%
(*.f64 R phi2)
Compiler

Compiled 852 to 578 computations (32.2% saved)

simplify208.0ms (1.2%)

Algorithm
1×egg-herbie
Localize:

Found 17 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
✓cost-diff0
(*.f64 R lambda2)
✓cost-diff0
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
✓cost-diff0
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
✓cost-diff0
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
✓cost-diff0
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
✓cost-diff0
(*.f64 R lambda1)
✓cost-diff0
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
✓cost-diff0
(*.f64 R phi2)
✓cost-diff0
(/.f64 (*.f64 R phi2) phi1)
✓cost-diff0
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
✓cost-diff0
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
✓cost-diff0
(*.f64 R phi2)
✓cost-diff6336
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
✓cost-diff6336
(*.f64 (-.f64 lambda1 lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
✓cost-diff6336
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 phi1 phi2))
✓cost-diff6336
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 phi1 phi2)))
Rules
3550×*-lowering-*.f32
3550×*-lowering-*.f64
3222×+-lowering-+.f64
3222×+-lowering-+.f32
1684×distribute-lft-in
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
039263
1102259
2301257
31377257
08635257
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))) (* (- phi1 phi2) (- phi1 phi2)))))
R
(sqrt (+ (* (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))) (* (- phi1 phi2) (- phi1 phi2))))
(* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))
(- lambda1 lambda2)
lambda1
lambda2
(+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))
(cos (/ phi2 2))
(/ phi2 2)
phi2
2
(cos (/ phi1 2))
(/ phi1 2)
phi1
(neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))
(* (sin (/ phi2 2)) (sin (/ phi1 2)))
(sin (/ phi2 2))
(sin (/ phi1 2))
(- phi1 phi2)
(* R phi2)
R
phi2
(* (- R (/ (* R phi2) phi1)) (- 0 phi1))
(- R (/ (* R phi2) phi1))
R
(/ (* R phi2) phi1)
(* R phi2)
phi2
phi1
(- 0 phi1)
0
(* (* R lambda1) (cos (* 1/2 (+ phi1 phi2))))
(* R lambda1)
R
lambda1
(cos (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
1/2
(+ phi1 phi2)
phi1
phi2
(- 0 (* (* R lambda2) (cos (* 1/2 (+ phi1 phi2)))))
0
(* (* R lambda2) (cos (* 1/2 (+ phi1 phi2))))
(* R lambda2)
R
lambda2
(cos (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
1/2
(+ phi1 phi2)
phi1
phi2
Outputs
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))) (* (- phi1 phi2) (- phi1 phi2)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
R
(sqrt (+ (* (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))) (* (- phi1 phi2) (- phi1 phi2))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2))
(* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(cos (/ phi2 2))
(cos.f64 (/.f64 phi2 #s(literal 2 binary64)))
(/ phi2 2)
(/.f64 phi2 #s(literal 2 binary64))
phi2
2
#s(literal 2 binary64)
(cos (/ phi1 2))
(cos.f64 (/.f64 phi1 #s(literal 2 binary64)))
(/ phi1 2)
(/.f64 phi1 #s(literal 2 binary64))
phi1
(neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(* (sin (/ phi2 2)) (sin (/ phi1 2)))
(*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))
(sin (/ phi2 2))
(sin.f64 (/.f64 phi2 #s(literal 2 binary64)))
(sin (/ phi1 2))
(sin.f64 (/.f64 phi1 #s(literal 2 binary64)))
(- phi1 phi2)
(-.f64 phi1 phi2)
(* R phi2)
(*.f64 R phi2)
R
phi2
(* (- R (/ (* R phi2) phi1)) (- 0 phi1))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(- R (/ (* R phi2) phi1))
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
R
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(* R phi2)
(*.f64 R phi2)
phi2
phi1
(- 0 phi1)
(-.f64 #s(literal 0 binary64) phi1)
0
#s(literal 0 binary64)
(* (* R lambda1) (cos (* 1/2 (+ phi1 phi2))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R lambda1)
(*.f64 R lambda1)
R
lambda1
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(* 1/2 (+ phi1 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
1/2
#s(literal 1/2 binary64)
(+ phi1 phi2)
(+.f64 phi2 phi1)
phi1
phi2
(- 0 (* (* R lambda2) (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R (-.f64 #s(literal 0 binary64) lambda2)))
0
#s(literal 0 binary64)
(* (* R lambda2) (cos (* 1/2 (+ phi1 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2))
(* R lambda2)
(*.f64 R lambda2)
R
lambda2
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(* 1/2 (+ phi1 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
1/2
#s(literal 1/2 binary64)
(+ phi1 phi2)
(+.f64 phi2 phi1)
phi1
phi2

localize470.0ms (2.6%)

Localize:

Found 17 expressions of interest:

NewMetricScoreProgram
✓accuracy100.0%
(*.f64 R lambda2)
✓accuracy100.0%
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
✓accuracy99.7%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
✓accuracy77.8%
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
✓accuracy100.0%
(*.f64 R lambda1)
✓accuracy100.0%
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
✓accuracy99.7%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
✓accuracy77.8%
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
✓accuracy100.0%
(*.f64 R phi2)
✓accuracy100.0%
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
✓accuracy91.9%
(/.f64 (*.f64 R phi2) phi1)
✓accuracy89.7%
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
✓accuracy100.0%
(*.f64 R phi2)
✓accuracy99.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 phi1 phi2)))
✓accuracy99.8%
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
✓accuracy99.7%
(*.f64 (-.f64 lambda1 lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
✓accuracy99.7%
(*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))
Results
316.0ms171×1valid
62.0ms85×0valid
Compiler

Compiled 272 to 36 computations (86.8% saved)

Precisions
Click to see histograms. Total time spent on operations: 172.0ms
ival-mult: 40.0ms (23.2% of total)
ival-cos: 30.0ms (17.4% of total)
ival-sub: 23.0ms (13.4% of total)
compiled-spec: 20.0ms (11.6% of total)
backward-pass: 19.0ms (11% of total)
ival-sin: 19.0ms (11% of total)
ival-div: 10.0ms (5.8% of total)
ival-add: 6.0ms (3.5% of total)
ival-sqrt: 3.0ms (1.7% of total)
ival-neg: 2.0ms (1.2% of total)
const: 1.0ms (0.6% of total)

series107.0ms (0.6%)

Counts
16 → 576
Calls
Call 1
Inputs
#<alt (* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))) (* (- phi1 phi2) (- phi1 phi2)))))>
#<alt (sqrt (+ (* (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))) (* (- phi1 phi2) (- phi1 phi2))))>
#<alt (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))>
#<alt (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))>
#<alt (* R phi2)>
#<alt (* (- R (/ (* R phi2) phi1)) (- 0 phi1))>
#<alt (- R (/ (* R phi2) phi1))>
#<alt (/ (* R phi2) phi1)>
#<alt (* (* R lambda1) (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R lambda1)>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (* 1/2 (+ phi1 phi2))>
#<alt (- 0 (* (* R lambda2) (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* (* R lambda2) (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R lambda2)>
#<alt (* (sin (/ phi2 2)) (sin (/ phi1 2)))>
Outputs
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))))>
#<alt (* -1 (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))))>
#<alt (* -1 (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* -1 (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda1 (- (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda1 (- (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (- (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (- (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (/ (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi2))) phi2))) phi2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (/ (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi1))) phi1))) phi1)))))>
#<alt (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))>
#<alt (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))>
#<alt (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (cos (* 1/2 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* -1 (* R phi1))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* R phi2)>
#<alt (* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))>
#<alt (* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))>
#<alt (* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))>
#<alt (* R phi2)>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (* -1 (* R phi1))>
#<alt (* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))>
#<alt (* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))>
#<alt (* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (* -1 (/ (* R phi2) phi1))>
#<alt (* phi2 (- (/ R phi2) (/ R phi1)))>
#<alt (* phi2 (- (/ R phi2) (/ R phi1)))>
#<alt (* phi2 (- (/ R phi2) (/ R phi1)))>
#<alt (* -1 (/ (* R phi2) phi1))>
#<alt (* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))>
#<alt (* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))>
#<alt (* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))>
#<alt (* -1 (/ (* R phi2) phi1))>
#<alt (/ (- (* R phi1) (* R phi2)) phi1)>
#<alt (/ (- (* R phi1) (* R phi2)) phi1)>
#<alt (/ (- (* R phi1) (* R phi2)) phi1)>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 phi2))))>
#<alt (+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2)))))>
#<alt (+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2)))))))))>
#<alt (+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda1 (cos (* 1/2 phi1))))>
#<alt (+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1)))))>
#<alt (+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1)))))))))>
#<alt (+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (cos (* 1/2 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (* 1/2 phi2)>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (* 1/2 phi1)>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* 1/2 phi1)>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* 1/2 phi1)>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (* 1/2 phi2)>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* 1/2 phi2)>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi2)))))>
#<alt (- (* 1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))>
#<alt (- (* phi1 (- (* 1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))) (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))))) (* R (* lambda2 (cos (* 1/2 phi2)))))>
#<alt (- (* phi1 (- (* phi1 (- (* -1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* -1/8 (* R (* lambda2 (cos (* 1/2 phi2))))))) (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))))) (* R (* lambda2 (cos (* 1/2 phi2)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (- (* phi2 (- (* 1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))) (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))))) (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (- (* phi2 (- (* phi2 (- (* -1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* -1/8 (* R (* lambda2 (cos (* 1/2 phi1))))))) (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))))) (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi2))))>
#<alt (+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))>
#<alt (+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))>
#<alt (+ (* 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)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))>
#<alt (+ (* 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)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* 1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* phi2 (+ (* -1/48 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))>
#<alt (* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/3840 (* (pow phi2 2) (sin (* 1/2 phi1))))))))>
#<alt (* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/645120 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/3840 (sin (* 1/2 phi1)))))))))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* 1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* phi1 (+ (* -1/48 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))>
#<alt (* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/3840 (* (pow phi1 2) (sin (* 1/2 phi2))))))))>
#<alt (* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/645120 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/3840 (sin (* 1/2 phi2)))))))))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
Calls

144 calls:

TimeVariablePointExpression
14.0ms
phi2
@inf
(* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))
12.0ms
lambda2
@-inf
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))) (* (- phi1 phi2) (- phi1 phi2)))))
6.0ms
lambda1
@inf
(sqrt (+ (* (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))) (* (- phi1 phi2) (- phi1 phi2))))
5.0ms
R
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))) (* (- phi1 phi2) (- phi1 phi2)))))
3.0ms
phi1
@inf
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))) (* (- phi1 phi2) (- phi1 phi2)))))

rewrite233.0ms (1.3%)

Algorithm
1×batch-egg-rewrite
Rules
3006×*-lowering-*.f32
3006×*-lowering-*.f64
1930×sum3-define
1812×/-lowering-/.f32
1812×/-lowering-/.f64
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
039193
1129128
2639126
37279126
08214126
Stop Event
1×iter limit
1×node limit
Counts
16 → 403
Calls
Call 1
Inputs
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))) (* (- phi1 phi2) (- phi1 phi2)))))
(sqrt (+ (* (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))) (* (- phi1 phi2) (- phi1 phi2))))
(* (- lambda1 lambda2) (+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2))))))
(+ (* (cos (/ phi2 2)) (cos (/ phi1 2))) (neg (* (sin (/ phi2 2)) (sin (/ phi1 2)))))
(* R phi2)
(* (- R (/ (* R phi2) phi1)) (- 0 phi1))
(- R (/ (* R phi2) phi1))
(/ (* R phi2) phi1)
(* (* R lambda1) (cos (* 1/2 (+ phi1 phi2))))
(* R lambda1)
(cos (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
(- 0 (* (* R lambda2) (cos (* 1/2 (+ phi1 phi2)))))
(* (* R lambda2) (cos (* 1/2 (+ phi1 phi2))))
(* R lambda2)
(* (sin (/ phi2 2)) (sin (/ phi1 2)))
Outputs
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (-.f64 phi1 phi2)))
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (-.f64 phi1 phi2)) R)
(exp.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (-.f64 phi1 phi2))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(pow.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(pow.f64 (exp.f64 (log.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #s(literal 1/2 binary64))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+.f64 (*.f64 lambda1 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (*.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) lambda1)) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) lambda1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))))
(+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 lambda1 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1 binary64)) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(+.f64 (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (-.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 4 binary64)) (/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 4 binary64)))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal -1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))))
(/.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal -2 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64)))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 #s(literal -2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (*.f64 (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64)))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal -4 binary64))
(*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 1/4 binary64))
(-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi2)))
(neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)))
(*.f64 R phi2)
(*.f64 R (*.f64 phi2 #s(literal 1 binary64)))
(*.f64 phi2 R)
(*.f64 phi2 (neg.f64 (-.f64 #s(literal 0 binary64) R)))
(*.f64 phi2 (*.f64 R #s(literal 1 binary64)))
(*.f64 (*.f64 R phi2) #s(literal 1 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 0 binary64) R))
(*.f64 #s(literal 1 binary64) (*.f64 R phi2))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi2)))
(*.f64 (-.f64 #s(literal 0 binary64) R) (-.f64 #s(literal 0 binary64) phi2))
(*.f64 (neg.f64 (-.f64 #s(literal 0 binary64) R)) phi2)
(+.f64 #s(literal 0 binary64) (*.f64 (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) #s(literal -1 binary64)) phi1))
(+.f64 (*.f64 (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) #s(literal -1 binary64)) phi1) #s(literal 0 binary64))
(+.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) (/.f64 phi1 (/.f64 phi1 (*.f64 R phi2))))
(+.f64 (/.f64 phi1 (/.f64 phi1 (*.f64 R phi2))) (*.f64 R (-.f64 #s(literal 0 binary64) phi1)))
(+.f64 (+.f64 #s(literal 0 binary64) (*.f64 R (-.f64 #s(literal 0 binary64) phi1))) (/.f64 phi1 (/.f64 phi1 (*.f64 R phi2))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(fma.f64 R (-.f64 #s(literal 0 binary64) phi1) (/.f64 phi1 (/.f64 phi1 (*.f64 R phi2))))
(fma.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) #s(literal 0 binary64) (*.f64 (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) #s(literal -1 binary64)) phi1))
(fma.f64 #s(literal 0 binary64) (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (*.f64 (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) #s(literal -1 binary64)) phi1))
(fma.f64 (-.f64 #s(literal 0 binary64) phi1) R (/.f64 phi1 (/.f64 phi1 (*.f64 R phi2))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(*.f64 phi1 (neg.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(*.f64 (neg.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) phi1)
(*.f64 (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) #s(literal -1 binary64)) phi1)
(+.f64 R (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1))
(+.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1) R)
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
(-.f64 #s(literal 0 binary64) (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(-.f64 (+.f64 R #s(literal 0 binary64)) (/.f64 (*.f64 R phi2) phi1))
(fma.f64 R (/.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)) R)
(fma.f64 (*.f64 R phi2) (/.f64 #s(literal -1 binary64) phi1) R)
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (/.f64 #s(literal 1 binary64) phi1) R)
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) R)
(fma.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 phi2 phi1) R)
(exp.f64 (*.f64 (log.f64 (/.f64 phi1 (*.f64 R phi2))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1))
(-.f64 (/.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) phi1)) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1))
(/.f64 R (/.f64 phi1 phi2))
(/.f64 (*.f64 R phi2) phi1)
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R phi2)))
(/.f64 (/.f64 #s(literal 1 binary64) phi1) (/.f64 #s(literal 1 binary64) (*.f64 R phi2)))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 phi1 (*.f64 R phi2))))
(/.f64 (*.f64 R #s(literal 1 binary64)) (/.f64 phi1 phi2))
(/.f64 (*.f64 #s(literal 1 binary64) R) (/.f64 phi1 phi2))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi2))) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) #s(literal 1 binary64)) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) #s(literal -1 binary64)) phi1)
(pow.f64 (/.f64 phi1 (*.f64 R phi2)) #s(literal -1 binary64))
(*.f64 R (/.f64 phi2 phi1))
(*.f64 phi2 (/.f64 R phi1))
(*.f64 phi2 (*.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 #s(literal -1 binary64) phi1)))
(*.f64 (*.f64 R phi2) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (/.f64 (*.f64 R phi2) phi1) #s(literal 1 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (/.f64 #s(literal -1 binary64) phi1))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (/.f64 #s(literal -1 binary64) phi1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (/.f64 R (-.f64 #s(literal 0 binary64) phi1)))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi2) phi1))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi2)) #s(literal -1 binary64)))
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1))
(*.f64 (/.f64 phi2 phi1) R)
(*.f64 (/.f64 #s(literal -1 binary64) phi1) (-.f64 #s(literal 0 binary64) (*.f64 R phi2)))
(*.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))
(*.f64 (/.f64 R phi1) phi2)
(*.f64 (/.f64 R #s(literal -1 binary64)) (/.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))
(*.f64 (/.f64 phi2 #s(literal -1 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) R) phi1))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) phi2) #s(literal -1 binary64)) (/.f64 R phi1))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) R) #s(literal -1 binary64)) (/.f64 phi2 phi1))
(*.f64 (neg.f64 (-.f64 #s(literal 0 binary64) R)) (/.f64 phi2 phi1))
(*.f64 (*.f64 #s(literal 1 binary64) R) (/.f64 phi2 phi1))
(*.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi2))) (/.f64 #s(literal -1 binary64) phi1))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda1)) (*.f64 (*.f64 R lambda1) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda1)) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda1)))
(+.f64 (*.f64 (*.f64 R lambda1) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 R lambda1) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (*.f64 R lambda1) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda1) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda1)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda1)))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda1)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda1)))
(/.f64 (*.f64 (*.f64 R lambda1) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 R lambda1) (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 R lambda1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 R lambda1)) #s(literal 4 binary64))
(*.f64 R (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 lambda1 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda1))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(*.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
(*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)
(*.f64 R lambda1)
(*.f64 lambda1 R)
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(+.f64 (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (-.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 4 binary64)) (/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 4 binary64)))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal -1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))))
(/.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal -2 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64)))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 #s(literal -2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (*.f64 (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64)))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal -4 binary64))
(*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 1/4 binary64))
(+.f64 (/.f64 phi2 #s(literal 2 binary64)) (/.f64 phi1 #s(literal 2 binary64)))
(+.f64 (/.f64 phi1 #s(literal 2 binary64)) (/.f64 phi2 #s(literal 2 binary64)))
(-.f64 (/.f64 phi2 #s(literal 2 binary64)) (/.f64 phi1 #s(literal -2 binary64)))
(-.f64 (/.f64 phi1 #s(literal 2 binary64)) (/.f64 phi2 #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 (/.f64 phi1 #s(literal -2 binary64)) (/.f64 phi2 #s(literal 2 binary64))))
(-.f64 (+.f64 (/.f64 phi2 #s(literal 2 binary64)) #s(literal 0 binary64)) (/.f64 phi1 #s(literal -2 binary64)))
(fma.f64 phi2 #s(literal 1/2 binary64) (/.f64 phi1 #s(literal 2 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (/.f64 phi2 #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 phi1 #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 phi2 #s(literal 2 binary64)))
(fma.f64 (-.f64 #s(literal 0 binary64) phi1) #s(literal -1/2 binary64) (/.f64 phi2 #s(literal 2 binary64)))
(fma.f64 (-.f64 #s(literal 0 binary64) phi2) #s(literal -1/2 binary64) (/.f64 phi1 #s(literal 2 binary64)))
(fma.f64 #s(literal 1 binary64) (/.f64 phi2 #s(literal 2 binary64)) (/.f64 phi1 #s(literal 2 binary64)))
(fma.f64 #s(literal 1 binary64) (/.f64 phi1 #s(literal 2 binary64)) (/.f64 phi2 #s(literal 2 binary64)))
(neg.f64 (+.f64 (/.f64 phi2 #s(literal -2 binary64)) (/.f64 phi1 #s(literal -2 binary64))))
(neg.f64 (+.f64 (/.f64 phi1 #s(literal -2 binary64)) (/.f64 phi2 #s(literal -2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -4 binary64) (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 phi1 #s(literal -2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (*.f64 phi2 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 4 binary64) phi1) (+.f64 #s(literal 2 binary64) (/.f64 phi2 (/.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -4 binary64) phi1) (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 4 binary64) phi2) (+.f64 #s(literal 2 binary64) (/.f64 phi1 (/.f64 phi2 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -4 binary64) phi2) (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi1 #s(literal -2 binary64)) phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2) (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2))))
(/.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 phi1 #s(literal -2 binary64))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 phi2 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi1)) #s(literal 4 binary64))
(/.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi2 (/.f64 phi1 #s(literal 2 binary64)))) (/.f64 #s(literal 4 binary64) phi1))
(/.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)) (/.f64 #s(literal -4 binary64) phi1))
(/.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi1 (/.f64 phi2 #s(literal 2 binary64)))) (/.f64 #s(literal 4 binary64) phi2))
(/.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi1 #s(literal -2 binary64)) phi2)) (/.f64 #s(literal -4 binary64) phi2))
(/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2))
(/.f64 (+.f64 (*.f64 phi2 (/.f64 #s(literal -2 binary64) phi1)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -2 binary64) phi1)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi2) (/.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) phi1)))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) phi1)) (*.f64 (/.f64 #s(literal 2 binary64) phi2) #s(literal -1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) phi2) (/.f64 #s(literal -2 binary64) phi1)))
(/.f64 (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal -2 binary64) phi2) phi1)) (*.f64 (/.f64 #s(literal -2 binary64) phi2) #s(literal 2 binary64)))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal -2 binary64) phi2) (-.f64 #s(literal 0 binary64) phi1))) (*.f64 (/.f64 #s(literal -2 binary64) phi2) #s(literal -2 binary64)))
(/.f64 (+.f64 (/.f64 #s(literal -2 binary64) phi1) (*.f64 (/.f64 #s(literal -2 binary64) phi2) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal -2 binary64) phi2) (/.f64 #s(literal 2 binary64) phi1)))
(/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (*.f64 (/.f64 #s(literal -2 binary64) phi2) #s(literal -1 binary64))) (*.f64 (/.f64 #s(literal -2 binary64) phi2) (/.f64 #s(literal -2 binary64) phi1)))
(/.f64 (+.f64 (*.f64 phi1 (/.f64 #s(literal -2 binary64) phi2)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -2 binary64) phi2)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (/.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) phi2)))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) phi2)) (*.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal -1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal -2 binary64) phi2)))
(/.f64 (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal -2 binary64) phi1) phi2)) (*.f64 (/.f64 #s(literal -2 binary64) phi1) #s(literal 2 binary64)))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal -2 binary64) phi1) (-.f64 #s(literal 0 binary64) phi2))) (*.f64 (/.f64 #s(literal -2 binary64) phi1) #s(literal -2 binary64)))
(/.f64 (+.f64 (/.f64 #s(literal -2 binary64) phi2) (*.f64 (/.f64 #s(literal -2 binary64) phi1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal -2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))
(/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi2) (*.f64 (/.f64 #s(literal -2 binary64) phi1) #s(literal -1 binary64))) (*.f64 (/.f64 #s(literal -2 binary64) phi1) (/.f64 #s(literal -2 binary64) phi2)))
(/.f64 (neg.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 phi1 #s(literal -2 binary64)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (*.f64 phi2 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi1))) #s(literal -4 binary64))
(/.f64 (neg.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi2 (/.f64 phi1 #s(literal 2 binary64))))) (neg.f64 (/.f64 #s(literal 4 binary64) phi1)))
(/.f64 (neg.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1))) (neg.f64 (/.f64 #s(literal -4 binary64) phi1)))
(/.f64 (neg.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi1 (/.f64 phi2 #s(literal 2 binary64))))) (neg.f64 (/.f64 #s(literal 4 binary64) phi2)))
(/.f64 (neg.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi1 #s(literal -2 binary64)) phi2))) (neg.f64 (/.f64 #s(literal -4 binary64) phi2)))
(/.f64 (neg.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2))) (neg.f64 (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2)))
(/.f64 (/.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi1 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal 2 binary64) phi2))
(/.f64 (/.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi1 #s(literal -2 binary64)) phi2)) #s(literal -2 binary64)) (/.f64 #s(literal 2 binary64) phi2))
(/.f64 (/.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi2 (/.f64 phi1 #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))
(/.f64 (/.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)) (/.f64 #s(literal 2 binary64) phi1)) #s(literal -2 binary64))
(/.f64 (/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi1)) (/.f64 #s(literal 2 binary64) phi2))
(/.f64 (/.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi2 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal 2 binary64) phi1))
(/.f64 (/.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)) #s(literal -2 binary64)) (/.f64 #s(literal 2 binary64) phi1))
(/.f64 (/.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi1 (/.f64 phi2 #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64))
(/.f64 (/.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi1 #s(literal -2 binary64)) phi2)) (/.f64 #s(literal 2 binary64) phi2)) #s(literal -2 binary64))
(/.f64 (/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi1))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(*.f64 #s(literal -1/2 binary64) (+.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 0 binary64) phi1)))
(*.f64 #s(literal -1/2 binary64) (+.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 0 binary64) phi2)))
(*.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/4 binary64))
(*.f64 (+.f64 (*.f64 phi2 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/4 binary64))
(*.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi2 (/.f64 phi1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) phi1)))
(*.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -4 binary64) phi1)))
(*.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi1 (/.f64 phi2 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) phi2)))
(*.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi1 #s(literal -2 binary64)) phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -4 binary64) phi2)))
(*.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2)))
(+.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R (-.f64 #s(literal 0 binary64) lambda2))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R (-.f64 #s(literal 0 binary64) lambda2))) #s(literal 0 binary64))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (*.f64 R (-.f64 #s(literal 0 binary64) lambda2)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R (-.f64 #s(literal 0 binary64) lambda2))))
(+.f64 (*.f64 (*.f64 R (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 R (-.f64 #s(literal 0 binary64) lambda2)) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (*.f64 R (-.f64 #s(literal 0 binary64) lambda2)) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 R (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R (-.f64 #s(literal 0 binary64) lambda2))))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R (-.f64 #s(literal 0 binary64) lambda2))))
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2)))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2)) #s(literal 0 binary64)))
(fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 0 binary64))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 0 binary64))
(fma.f64 (*.f64 R lambda2) (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2)) #s(literal 0 binary64))
(fma.f64 (*.f64 R (-.f64 #s(literal 0 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 R lambda2) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 0 binary64))
(neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2)))
(/.f64 (*.f64 (*.f64 R (-.f64 #s(literal 0 binary64) lambda2)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 R (-.f64 #s(literal 0 binary64) lambda2)) (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 R (-.f64 #s(literal 0 binary64) lambda2))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 R (-.f64 #s(literal 0 binary64) lambda2))) #s(literal 4 binary64))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) lambda2)))
(*.f64 lambda2 (neg.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(*.f64 lambda2 (*.f64 (-.f64 #s(literal 0 binary64) R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 lambda2 (*.f64 R (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R (-.f64 #s(literal 0 binary64) lambda2)))
(*.f64 (*.f64 R lambda2) (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2)))
(*.f64 (*.f64 R (-.f64 #s(literal 0 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (-.f64 #s(literal 0 binary64) R))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 R lambda2))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2)) #s(literal -1 binary64))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) lambda2)) R)
(*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (-.f64 #s(literal 0 binary64) lambda2))
(*.f64 (neg.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) lambda2)
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal -1 binary64)) (*.f64 R lambda2))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) R)) lambda2)
(*.f64 (*.f64 #s(literal -1 binary64) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) lambda2)
(*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R) lambda2)
(*.f64 (*.f64 (-.f64 #s(literal 0 binary64) R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2)) (*.f64 (*.f64 R lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2)) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda2)))
(+.f64 (*.f64 (*.f64 R lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 R lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (*.f64 R lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda2)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda2)))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda2)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda2)))
(/.f64 (*.f64 (*.f64 R lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 R lambda2) (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 R lambda2)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 R lambda2)) #s(literal 4 binary64))
(*.f64 R (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 lambda2 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
(*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)
(*.f64 R lambda2)
(*.f64 lambda2 R)
(+.f64 (/.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)) (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))
(-.f64 (/.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal -1 binary64))
(*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))
(*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 1/2 binary64))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 phi2 phi1) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (sin.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 phi2 phi1) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (sin.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (+.f64 (neg.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal -1/2 binary64))

simplify470.0ms (2.6%)

Algorithm
1×egg-herbie
Rules
6920×*-lowering-*.f32
6920×*-lowering-*.f64
4844×+-lowering-+.f64
4844×+-lowering-+.f32
1308×/-lowering-/.f32
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
093913918
1331112328
0810212328
Stop Event
1×iter limit
1×node limit
Counts
576 → 576
Calls
Call 1
Inputs
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))))
(* -1 (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))))
(* -1 (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* -1 (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda1 (- (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda1 (- (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda2 (- (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda2 (- (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (/ (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi2))) phi2))) phi2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (/ (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi1))) phi1))) phi1)))))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(* -1 (* R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* R phi2)
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* R phi2)
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(* -1 (* R phi1))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(* R (+ 1 (* -1 (/ phi2 phi1))))
R
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(* -1 (/ (* R phi2) phi1))
(* phi2 (- (/ R phi2) (/ R phi1)))
(* phi2 (- (/ R phi2) (/ R phi1)))
(* phi2 (- (/ R phi2) (/ R phi1)))
(* -1 (/ (* R phi2) phi1))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(* -1 (/ (* R phi2) phi1))
(/ (- (* R phi1) (* R phi2)) phi1)
(/ (- (* R phi1) (* R phi2)) phi1)
(/ (- (* R phi1) (* R phi2)) phi1)
R
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
R
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2)))))
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2)))))))))
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1)))))
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1)))))))))
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(* 1/2 phi2)
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(* 1/2 phi1)
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* 1/2 phi1)
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* 1/2 phi1)
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(* 1/2 phi2)
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* 1/2 phi2)
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi2)))))
(- (* 1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(- (* phi1 (- (* 1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))) (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(- (* phi1 (- (* phi1 (- (* -1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* -1/8 (* R (* lambda2 (cos (* 1/2 phi2))))))) (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(- (* phi2 (- (* 1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))) (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(- (* phi2 (- (* phi2 (- (* -1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* -1/8 (* R (* lambda2 (cos (* 1/2 phi1))))))) (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 phi2))))
(+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))
(+ (* 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)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))
(+ (* 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)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* 1/2 (* phi2 (sin (* 1/2 phi1))))
(* phi2 (+ (* -1/48 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))
(* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/3840 (* (pow phi2 2) (sin (* 1/2 phi1))))))))
(* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/645120 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/3840 (sin (* 1/2 phi1)))))))))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* 1/2 (* phi1 (sin (* 1/2 phi2))))
(* phi1 (+ (* -1/48 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/3840 (* (pow phi1 2) (sin (* 1/2 phi2))))))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/645120 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/3840 (sin (* 1/2 phi2)))))))))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
Outputs
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (+.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) #s(literal 3 binary64)))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 (*.f64 R lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 lambda1 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 lambda1 (+.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 lambda1)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))))
(*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (/.f64 (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 lambda1)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1))))
(* -1 (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 (neg.f64 (*.f64 R lambda1)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))) lambda1)) lambda1)) (neg.f64 lambda1))
(* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (+.f64 (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 (*.f64 lambda1 (*.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (*.f64 R lambda1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 lambda2 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 lambda2 (+.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 lambda2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))))
(*.f64 lambda2 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (/.f64 (*.f64 (*.f64 R lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 lambda2))))) (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2))))
(* -1 (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))) lambda2)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))
(+ (* 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)))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi2) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))
(+ (* 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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (+.f64 (*.f64 phi2 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (*.f64 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (+.f64 (*.f64 (*.f64 R phi2) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))) (*.f64 R (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))))))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (*.f64 phi2 phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 2)))))))
(*.f64 phi2 (+.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 phi2 phi2))) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))
(* -1 (* R phi2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 R (/.f64 (+.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) phi2)) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) phi2)))) phi2)) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi1) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 (*.f64 phi1 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 R (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 2))))))
(*.f64 phi1 (+.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) phi1) (/.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) phi1)))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 (/.f64 (*.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)) (/.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) phi1)) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 R (/.f64 (+.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) phi1)) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) phi1)))) phi1)) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))) (*.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (+.f64 (neg.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))) (*.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) #s(literal 3 binary64))))))))) (*.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (-.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 lambda1)))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (/.f64 lambda2 lambda1) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda1 lambda1))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda1 lambda1)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (+.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(-.f64 #s(literal 0 binary64) (*.f64 lambda1 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda1)) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (+.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))) (*.f64 (*.f64 lambda1 (*.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) #s(literal 3 binary64)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda1 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda2 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda2 (-.f64 (-.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 lambda2 lambda2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda2 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (/.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 lambda2))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 lambda2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (+.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda2)) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (+.f64 (*.f64 phi2 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))))
(+ (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)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (+.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 phi2 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi2 2)))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 phi2 phi2)) (/.f64 (*.f64 (*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 phi2 phi2)))))))
(* -1 phi2)
(-.f64 #s(literal 0 binary64) phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) phi2))) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi1 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) phi2)) phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (/ (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi2))) phi2))) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) phi2))) phi2)) phi2)))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 (*.f64 phi1 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))))
(+ (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)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi1 2))))))
(*.f64 phi1 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) phi1) (/.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (*.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)) (/.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) phi1)) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) phi1)) phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (/ (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi1))) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) phi1))) phi1)) phi1)))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 lambda1))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(+ (* 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)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* 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)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* R phi2)
(*.f64 R phi2)
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))))
(* R phi2)
(*.f64 R phi2)
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
R
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* -1 (/ (* R phi2) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi2 phi1)))
(* phi2 (- (/ R phi2) (/ R phi1)))
(*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1)))
(* phi2 (- (/ R phi2) (/ R phi1)))
(*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1)))
(* phi2 (- (/ R phi2) (/ R phi1)))
(*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1)))
(* -1 (/ (* R phi2) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi2 phi1)))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi2 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 R phi2)) (/.f64 R phi1))))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi2 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 R phi2)) (/.f64 R phi1))))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi2 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 R phi2)) (/.f64 R phi1))))
(* -1 (/ (* R phi2) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi2 phi1)))
(/ (- (* R phi1) (* R phi2)) phi1)
(/.f64 (*.f64 R (-.f64 phi1 phi2)) phi1)
(/ (- (* R phi1) (* R phi2)) phi1)
(/.f64 (*.f64 R (-.f64 phi1 phi2)) phi1)
(/ (- (* R phi1) (* R phi2)) phi1)
(/.f64 (*.f64 R (-.f64 phi1 phi2)) phi1)
R
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
R
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2)))))
(+.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2)))))))))
(+.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda1 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))))))))
(+.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1)))))
(+.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1)))))))))
(+.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda1 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))))))))
(+.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(* R lambda1)
(*.f64 R lambda1)
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)))))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)))))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (*.f64 (+.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (*.f64 (+.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (*.f64 (+.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi2) phi1) #s(literal -1/2 binary64))))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi2) phi1) #s(literal -1/2 binary64))))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi2) phi1) #s(literal -1/2 binary64))))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) phi1) phi2)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) phi1) phi2)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) phi1) phi2)))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi2) #s(literal -1/2 binary64)))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi2) #s(literal -1/2 binary64)))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi2) #s(literal -1/2 binary64)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi2)))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(- (* 1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* phi1 (- (* 1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))) (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 (*.f64 lambda2 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* phi1 (- (* phi1 (- (* -1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* -1/8 (* R (* lambda2 (cos (* 1/2 phi2))))))) (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(-.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) R) (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* phi2 (- (* 1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))) (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 (*.f64 lambda2 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* phi2 (- (* phi2 (- (* -1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* -1/8 (* R (* lambda2 (cos (* 1/2 phi1))))))) (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 phi2))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda2 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda2 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* 1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* phi2 (+ (* -1/48 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))
(*.f64 phi2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 phi2 phi2)))))
(* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/3840 (* (pow phi2 2) (sin (* 1/2 phi1))))))))
(*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 phi2 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (+.f64 #s(literal -1/48 binary64) (*.f64 #s(literal 1/3840 binary64) (*.f64 phi2 phi2)))))))
(* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/645120 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/3840 (sin (* 1/2 phi1)))))))))
(*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/48 binary64)) (*.f64 (*.f64 phi2 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (*.f64 #s(literal -1/645120 binary64) (*.f64 phi2 phi2)) #s(literal 1/3840 binary64))))))))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* 1/2 (* phi1 (sin (* 1/2 phi2))))
(*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* phi1 (+ (* -1/48 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))
(*.f64 phi1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 phi1 phi1)))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/3840 (* (pow phi1 2) (sin (* 1/2 phi2))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 phi1 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (+.f64 #s(literal -1/48 binary64) (*.f64 #s(literal 1/3840 binary64) (*.f64 phi1 phi1)))))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/645120 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/3840 (sin (* 1/2 phi2)))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/48 binary64)) (*.f64 (*.f64 phi1 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (+.f64 (*.f64 #s(literal -1/645120 binary64) (*.f64 phi1 phi1)) #s(literal 1/3840 binary64))))))))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))

eval232.0ms (1.3%)

Compiler

Compiled 30757 to 2598 computations (91.6% saved)

prune240.0ms (1.3%)

Pruning

47 alts after pruning (45 fresh and 2 done)

PrunedKeptTotal
New1163301193
Fresh31518
Picked325
Done000
Total1169471216
Accuracy
100.0%
Counts
1216 → 47
Alt Table
Click to see full alt table
StatusAccuracyProgram
57.2%
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
7.5%
(-.f64 #s(literal 0 binary64) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda2)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda2))))
8.6%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R))
6.9%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 (/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi1)))))
8.1%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2) (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))))))
▶6.2%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
24.5%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
52.1%
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
▶33.1%
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
8.2%
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda1)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda1)))
37.9%
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
54.9%
(*.f64 (-.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) phi1))
55.8%
(*.f64 (-.f64 R (/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R phi2)))) (-.f64 #s(literal 0 binary64) phi1))
58.3%
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (-.f64 #s(literal 0 binary64) phi1))
▶55.8%
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (-.f64 #s(literal 0 binary64) phi1))
58.3%
(*.f64 (-.f64 R (*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (/.f64 #s(literal -1 binary64) phi1)))) (-.f64 #s(literal 0 binary64) phi1))
25.1%
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
55.2%
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))))
57.2%
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (-.f64 #s(literal 0 binary64) phi1))
11.1%
(*.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
24.3%
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
23.6%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
12.9%
(*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
8.4%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
9.3%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
8.6%
(*.f64 (neg.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) lambda2)
9.4%
(*.f64 (neg.f64 (*.f64 R lambda2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
5.6%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
24.4%
(*.f64 (neg.f64 (*.f64 R lambda1)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
58.8%
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
54.7%
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
▶99.9%
(*.f64 R (hypot.f64 (fma.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
99.9%
(*.f64 R (hypot.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 phi1 phi2)))
✓99.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 phi1 phi2)))
99.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
84.4%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 phi1 phi2)))
91.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
82.4%
(*.f64 R (hypot.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 phi1 phi2)))
▶31.9%
(*.f64 R (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
9.4%
(*.f64 R (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2)))
24.5%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
23.6%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
53.3%
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
58.1%
(*.f64 R (sqrt.f64 (+.f64 (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
19.6%
(*.f64 R (sqrt.f64 (*.f64 phi2 phi2)))
24.0%
(*.f64 R (sqrt.f64 (*.f64 phi1 phi1)))
✓28.9%
(*.f64 R phi2)
Compiler

Compiled 1940 to 1280 computations (34% saved)

simplify223.0ms (1.2%)

Algorithm
1×egg-herbie
Localize:

Found 18 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
✓cost-diff12800
(exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))
✓cost-diff12800
(hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (-.f64 phi1 phi2))
✓cost-diff12800
(*.f64 R (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
✓cost-diff0
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
✓cost-diff0
(*.f64 R lambda2)
✓cost-diff0
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
✓cost-diff0
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
✓cost-diff0
(/.f64 #s(literal 1 binary64) phi1)
✓cost-diff128
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))
✓cost-diff128
(-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2)))
✓cost-diff384
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (-.f64 #s(literal 0 binary64) phi1))
✓cost-diff0
(*.f64 R phi1)
✓cost-diff0
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
✓cost-diff0
(-.f64 lambda1 lambda2)
✓cost-diff6656
(fma.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
✓cost-diff6656
(hypot.f64 (fma.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2))
✓cost-diff6656
(*.f64 R (hypot.f64 (fma.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
Rules
3060×*-lowering-*.f32
3060×*-lowering-*.f64
3008×+-lowering-+.f64
3008×+-lowering-+.f32
2016×fma-define
Iterations

Useful iterations: 3 (0.0ms)

IterNodesCost
051332
1124329
2338318
31636309
08306309
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(* R (sqrt (+ (* (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2))))) (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2)))))
R
(sqrt (+ (* (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2))))) (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2))))
(+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2)))))
(- lambda1 lambda2)
lambda1
lambda2
(- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))
0
(* (sin (/ phi2 2)) (sin (/ phi1 2)))
(sin (/ phi2 2))
(/ phi2 2)
phi2
2
(sin (/ phi1 2))
(/ phi1 2)
phi1
(* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2))))
(cos (/ phi2 2))
(* (- lambda1 lambda2) (cos (/ phi1 2)))
(cos (/ phi1 2))
(- phi1 phi2)
(- 0 (* R phi1))
0
(* R phi1)
R
phi1
(* (- R (* (/ 1 phi1) (* R phi2))) (- 0 phi1))
(- R (* (/ 1 phi1) (* R phi2)))
R
(* (/ 1 phi1) (* R phi2))
(/ 1 phi1)
1
phi1
(* R phi2)
phi2
(- 0 phi1)
0
(- 0 (* (* R lambda2) (cos (* 1/2 phi1))))
0
(* (* R lambda2) (cos (* 1/2 phi1)))
(* R lambda2)
R
lambda2
(cos (* 1/2 phi1))
(* 1/2 phi1)
1/2
phi1
(* R (sqrt (+ (* (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))) (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))))) (* (- phi1 phi2) (- phi1 phi2)))))
R
(sqrt (+ (* (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))) (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))))) (* (- phi1 phi2) (- phi1 phi2))))
(exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))))
(log (* (- 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)
Outputs
(* R (sqrt (+ (* (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2))))) (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
R
(sqrt (+ (* (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2))))) (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2))
(+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
0
#s(literal 0 binary64)
(* (sin (/ phi2 2)) (sin (/ phi1 2)))
(*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))
(sin (/ phi2 2))
(sin.f64 (/.f64 phi2 #s(literal 2 binary64)))
(/ phi2 2)
(/.f64 phi2 #s(literal 2 binary64))
phi2
2
#s(literal 2 binary64)
(sin (/ phi1 2))
(sin.f64 (/.f64 phi1 #s(literal 2 binary64)))
(/ phi1 2)
(/.f64 phi1 #s(literal 2 binary64))
phi1
(* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2))))
(*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(cos (/ phi2 2))
(cos.f64 (/.f64 phi2 #s(literal 2 binary64)))
(* (- lambda1 lambda2) (cos (/ phi1 2)))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
(cos (/ phi1 2))
(cos.f64 (/.f64 phi1 #s(literal 2 binary64)))
(- phi1 phi2)
(-.f64 phi1 phi2)
(- 0 (* R phi1))
(*.f64 R (-.f64 #s(literal 0 binary64) phi1))
0
#s(literal 0 binary64)
(* R phi1)
(*.f64 R phi1)
R
phi1
(* (- R (* (/ 1 phi1) (* R phi2))) (- 0 phi1))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(- R (* (/ 1 phi1) (* R phi2)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
R
(* (/ 1 phi1) (* R phi2))
(/.f64 (*.f64 R phi2) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
1
#s(literal 1 binary64)
phi1
(* R phi2)
(*.f64 R phi2)
phi2
(- 0 phi1)
(-.f64 #s(literal 0 binary64) phi1)
0
#s(literal 0 binary64)
(- 0 (* (* R lambda2) (cos (* 1/2 phi1))))
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)))
0
#s(literal 0 binary64)
(* (* R lambda2) (cos (* 1/2 phi1)))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(* R lambda2)
(*.f64 R lambda2)
R
lambda2
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
1/2
#s(literal 1/2 binary64)
phi1
(* R (sqrt (+ (* (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))) (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))))) (* (- phi1 phi2) (- phi1 phi2)))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))))
R
(sqrt (+ (* (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))) (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))))) (* (- phi1 phi2) (- phi1 phi2))))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos (/ (+ phi1 phi2) 2))
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))
(/ (+ phi1 phi2) 2)
(/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))
(+ phi1 phi2)
(+.f64 phi2 phi1)
phi1
phi2
2
#s(literal 2 binary64)
(- phi1 phi2)
(-.f64 phi1 phi2)

localize639.0ms (3.6%)

Localize:

Found 18 expressions of interest:

NewMetricScoreProgram
✓accuracy100.0%
(*.f64 R (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
✓accuracy99.9%
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
✓accuracy96.7%
(exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))
✓accuracy88.3%
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
✓accuracy100.0%
(*.f64 R lambda2)
✓accuracy100.0%
(*.f64 #s(literal 1/2 binary64) phi1)
✓accuracy100.0%
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
✓accuracy99.9%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
✓accuracy100.0%
(-.f64 #s(literal 0 binary64) phi1)
✓accuracy100.0%
(*.f64 R phi2)
✓accuracy98.1%
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))
✓accuracy96.3%
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (-.f64 #s(literal 0 binary64) phi1))
✓accuracy100.0%
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
✓accuracy100.0%
(*.f64 R phi1)
✓accuracy99.9%
(*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
✓accuracy99.9%
(fma.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
✓accuracy99.9%
(*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))
✓accuracy99.9%
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
Results
273.0ms84×1invalid
188.0ms83×1valid
75.0ms84×0invalid
4.0ms5×0valid
Compiler

Compiled 356 to 46 computations (87.1% saved)

Precisions
Click to see histograms. Total time spent on operations: 338.0ms
ival-cos: 79.0ms (23.4% of total)
ival-mult: 60.0ms (17.8% of total)
backward-pass: 46.0ms (13.6% of total)
compiled-spec: 44.0ms (13% of total)
ival-sin: 42.0ms (12.4% of total)
ival-sub: 18.0ms (5.3% of total)
ival-sqrt: 17.0ms (5% of total)
ival-div: 14.0ms (4.1% of total)
ival-add: 8.0ms (2.4% of total)
ival-log: 5.0ms (1.5% of total)
ival-exp: 3.0ms (0.9% of total)
const: 1.0ms (0.3% of total)

series574.0ms (3.2%)

Counts
26 → 888
Calls
Call 1
Inputs
#<alt (* R (sqrt (+ (* (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2))))) (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2)))))>
#<alt (sqrt (+ (* (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2))))) (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2))))>
#<alt (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2)))))>
#<alt (- lambda1 lambda2)>
#<alt (- 0 (* R phi1))>
#<alt (* R phi1)>
#<alt (* (- R (* (/ 1 phi1) (* R phi2))) (- 0 phi1))>
#<alt (- R (* (/ 1 phi1) (* R phi2)))>
#<alt (* (/ 1 phi1) (* R phi2))>
#<alt (/ 1 phi1)>
#<alt (- 0 (* (* R lambda2) (cos (* 1/2 phi1))))>
#<alt (* (* R lambda2) (cos (* 1/2 phi1)))>
#<alt (* R lambda2)>
#<alt (cos (* 1/2 phi1))>
#<alt (* R (sqrt (+ (* (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))) (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))))) (* (- phi1 phi2) (- phi1 phi2)))))>
#<alt (sqrt (+ (* (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))) (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))))) (* (- phi1 phi2) (- phi1 phi2))))>
#<alt (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))))>
#<alt (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))>
#<alt (* (- lambda1 lambda2) (cos (/ phi1 2)))>
#<alt (* (sin (/ phi2 2)) (sin (/ phi1 2)))>
#<alt (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2))))>
#<alt (* R phi2)>
#<alt (- 0 phi1)>
#<alt (* 1/2 phi1)>
#<alt (cos (/ (+ phi1 phi2) 2))>
#<alt (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))>
Outputs
#<alt (* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))>
#<alt (+ (* R (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* (* R (* lambda1 (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))>
#<alt (+ (* R (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (* (* R (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))>
#<alt (+ (* R (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (* R (* lambda1 (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (* (* R (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))>
#<alt (* R (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))>
#<alt (* lambda1 (+ (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)))>
#<alt (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1))))>
#<alt (* lambda1 (+ (* -1/2 (/ (* R (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)))))>
#<alt (* -1 (* R (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (pow (- phi1 phi2) 2))) (* lambda1 (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* R (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))>
#<alt (+ (* R (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* (* R (* lambda2 (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))>
#<alt (+ (* R (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* 1/2 (* (* R (* lambda2 (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (* (* R (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))>
#<alt (+ (* R (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (* R (* lambda2 (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (* (* R (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))>
#<alt (* R (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* lambda2 (+ (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)))>
#<alt (* lambda2 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2))))>
#<alt (* lambda2 (+ (* -1/2 (/ (* R (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)))))>
#<alt (* -1 (* R (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda2)) (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (pow (- phi1 phi2) 2))) (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda2)) (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda2)) (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (+ (* -1/4 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) (pow phi2 3))) (* 1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) (* 1/2 (/ (* R (* phi1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (+ (* -1/4 (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ (* 1/24 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) (pow phi1 3))) (* 1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) (* 1/2 (/ (* R (* phi2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* (* lambda1 (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))>
#<alt (+ (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (* (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))>
#<alt (+ (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (* lambda1 (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (* (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))>
#<alt (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))>
#<alt (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1))))))>
#<alt (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* -1/2 (/ (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (/ (+ (* 1/2 (/ (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (pow (- phi1 phi2) 2)) (* lambda1 (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* (* lambda2 (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))>
#<alt (+ (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (* (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))>
#<alt (+ (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (* lambda2 (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (* (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))>
#<alt (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))>
#<alt (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2))))))>
#<alt (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* -1/2 (/ (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (/ (+ (* 1/2 (/ (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (pow (- phi1 phi2) 2)) (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda2)) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (+ (* -1/4 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (+ (* -1/4 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)) (pow (- lambda1 lambda2) 2)))) (* 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi2 3))) (* 1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (/ (* phi1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) phi2)) (* 1/2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) phi2))) phi2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (+ (* -1/4 (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (+ (* -1/4 (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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)) (pow (- lambda1 lambda2) 2)))) (* 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi1 3))) (* 1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (/ (* phi2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) phi1)) (* 1/2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) phi1))) phi1)))))>
#<alt (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))>
#<alt (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))>
#<alt (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))>
#<alt (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))>
#<alt (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (* -1 lambda2)>
#<alt (- lambda1 lambda2)>
#<alt (- lambda1 lambda2)>
#<alt (- lambda1 lambda2)>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))>
#<alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))>
#<alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))>
#<alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))>
#<alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))>
#<alt lambda1>
#<alt (+ lambda1 (* -1 lambda2))>
#<alt (+ lambda1 (* -1 lambda2))>
#<alt (+ lambda1 (* -1 lambda2))>
#<alt (* -1 lambda2)>
#<alt (* lambda2 (- (/ lambda1 lambda2) 1))>
#<alt (* lambda2 (- (/ lambda1 lambda2) 1))>
#<alt (* lambda2 (- (/ lambda1 lambda2) 1))>
#<alt (* -1 lambda2)>
#<alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))>
#<alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))>
#<alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* R phi2)>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (* -1 (* R phi1))>
#<alt (* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))>
#<alt (* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))>
#<alt (* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* R phi1))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* R phi2)>
#<alt (* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))>
#<alt (* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))>
#<alt (* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* -1 (/ (* R phi2) phi1))>
#<alt (/ (- (* R phi1) (* R phi2)) phi1)>
#<alt (/ (- (* R phi1) (* R phi2)) phi1)>
#<alt (/ (- (* R phi1) (* R phi2)) phi1)>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (* -1 (/ (* R phi2) phi1))>
#<alt (* phi2 (- (/ R phi2) (/ R phi1)))>
#<alt (* phi2 (- (/ R phi2) (/ R phi1)))>
#<alt (* phi2 (- (/ R phi2) (/ R phi1)))>
#<alt (* -1 (/ (* R phi2) phi1))>
#<alt (* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))>
#<alt (* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))>
#<alt (* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R lambda2))>
#<alt (- (* 1/8 (* R (* lambda2 (pow phi1 2)))) (* R lambda2))>
#<alt (- (* (pow phi1 2) (- (* -1/384 (* R (* lambda2 (pow phi1 2)))) (* -1/8 (* R lambda2)))) (* R lambda2))>
#<alt (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/46080 (* R (* lambda2 (pow phi1 2)))) (* 1/384 (* R lambda2)))) (* -1/8 (* R lambda2)))) (* R lambda2))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R lambda2)>
#<alt (+ (* -1/8 (* R (* lambda2 (pow phi1 2)))) (* R lambda2))>
#<alt (+ (* R lambda2) (* (pow phi1 2) (+ (* -1/8 (* R lambda2)) (* 1/384 (* R (* lambda2 (pow phi1 2)))))))>
#<alt (+ (* R lambda2) (* (pow phi1 2) (+ (* -1/8 (* R lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* R (* lambda2 (pow phi1 2)))) (* 1/384 (* R lambda2)))))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt 1>
#<alt (+ 1 (* -1/8 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8)))>
#<alt (cos (* 1/2 phi1))>
#<alt (cos (* 1/2 phi1))>
#<alt (cos (* 1/2 phi1))>
#<alt (cos (* 1/2 phi1))>
#<alt (cos (* 1/2 phi1))>
#<alt (cos (* 1/2 phi1))>
#<alt (cos (* 1/2 phi1))>
#<alt (cos (* 1/2 phi1))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
#<alt (log (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (+ (log (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* -1 (/ lambda1 lambda2)))>
#<alt (+ (log (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (- (* -1/2 (/ lambda1 (pow lambda2 2))) (/ 1 lambda2))))>
#<alt (+ (log (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (- (* lambda1 (- (* -1/3 (/ lambda1 (pow lambda2 3))) (* 1/2 (/ 1 (pow lambda2 2))))) (/ 1 lambda2))))>
#<alt (+ (log (cos (* 1/2 (+ phi1 phi2)))) (* -1 (log (/ 1 lambda1))))>
#<alt (+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ 1 lambda1))) (* -1 (/ lambda2 lambda1))))>
#<alt (+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ 1 lambda1))) (+ (* -1 (/ lambda2 lambda1)) (* -1/2 (/ (pow lambda2 2) (pow lambda1 2))))))>
#<alt (+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ 1 lambda1))) (+ (* -1 (/ lambda2 lambda1)) (+ (* -1/2 (/ (pow lambda2 2) (pow lambda1 2))) (* -1/3 (/ (pow lambda2 3) (pow lambda1 3)))))))>
#<alt (+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (* -1 (log (/ -1 lambda1))))>
#<alt (+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ -1 lambda1))) (* -1 (/ lambda2 lambda1))))>
#<alt (+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ -1 lambda1))) (* -1 (/ (+ lambda2 (* 1/2 (/ (pow lambda2 2) lambda1))) lambda1))))>
#<alt (+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ -1 lambda1))) (* -1 (/ (+ lambda2 (* -1 (/ (+ (* -1/2 (pow lambda2 2)) (* -1/3 (/ (pow lambda2 3) lambda1))) lambda1))) lambda1))))>
#<alt (log (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (log (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* -1 (/ lambda2 lambda1)))>
#<alt (+ (log (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (- (* -1/2 (/ lambda2 (pow lambda1 2))) (/ 1 lambda1))))>
#<alt (+ (log (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (- (* lambda2 (- (* -1/3 (/ lambda2 (pow lambda1 3))) (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))))>
#<alt (+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (* -1 (log (/ 1 lambda2))))>
#<alt (+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ 1 lambda2))) (* -1 (/ lambda1 lambda2))))>
#<alt (+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ 1 lambda2))) (+ (* -1 (/ lambda1 lambda2)) (* -1/2 (/ (pow lambda1 2) (pow lambda2 2))))))>
#<alt (+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ 1 lambda2))) (+ (* -1 (/ lambda1 lambda2)) (+ (* -1/2 (/ (pow lambda1 2) (pow lambda2 2))) (* -1/3 (/ (pow lambda1 3) (pow lambda2 3)))))))>
#<alt (+ (log (cos (* 1/2 (+ phi1 phi2)))) (* -1 (log (/ -1 lambda2))))>
#<alt (+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ -1 lambda2))) (* -1 (/ lambda1 lambda2))))>
#<alt (+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ -1 lambda2))) (* -1 (/ (+ lambda1 (* 1/2 (/ (pow lambda1 2) lambda2))) lambda2))))>
#<alt (+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ -1 lambda2))) (* -1 (/ (+ lambda1 (* -1 (/ (+ (* -1/2 (pow lambda1 2)) (* -1/3 (/ (pow lambda1 3) lambda2))) lambda2))) lambda2))))>
#<alt (log (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (log (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/2 (/ (* phi1 (sin (* 1/2 phi2))) (cos (* 1/2 phi2)))))>
#<alt (+ (log (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/2 (/ (sin (* 1/2 phi2)) (cos (* 1/2 phi2)))) (* 1/2 (* phi1 (- (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 2))) 1/4))))))>
#<alt (+ (log (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/2 (/ (sin (* 1/2 phi2)) (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/6 (* phi1 (+ (* -3/8 (/ (sin (* 1/2 phi2)) (cos (* 1/2 phi2)))) (+ (* -1/4 (/ (pow (sin (* 1/2 phi2)) 3) (pow (cos (* 1/2 phi2)) 3))) (* 1/8 (/ (sin (* 1/2 phi2)) (cos (* 1/2 phi2)))))))) (* 1/2 (- (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 2))) 1/4)))))))>
#<alt (log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (log (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/2 (/ (* phi2 (sin (* 1/2 phi1))) (cos (* 1/2 phi1)))))>
#<alt (+ (log (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/2 (/ (sin (* 1/2 phi1)) (cos (* 1/2 phi1)))) (* 1/2 (* phi2 (- (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 2))) 1/4))))))>
#<alt (+ (log (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/2 (/ (sin (* 1/2 phi1)) (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/6 (* phi2 (+ (* -3/8 (/ (sin (* 1/2 phi1)) (cos (* 1/2 phi1)))) (+ (* -1/4 (/ (pow (sin (* 1/2 phi1)) 3) (pow (cos (* 1/2 phi1)) 3))) (* 1/8 (/ (sin (* 1/2 phi1)) (cos (* 1/2 phi1)))))))) (* 1/2 (- (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 2))) 1/4)))))))>
#<alt (log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))>
#<alt (log (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (* lambda1 (cos (* 1/2 phi1)))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 phi1)))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 phi1)))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))>
#<alt (- lambda1 lambda2)>
#<alt (- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* 1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* phi2 (+ (* -1/48 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))>
#<alt (* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/3840 (* (pow phi2 2) (sin (* 1/2 phi1))))))))>
#<alt (* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/645120 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/3840 (sin (* 1/2 phi1)))))))))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* 1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* phi1 (+ (* -1/48 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))>
#<alt (* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/3840 (* (pow phi1 2) (sin (* 1/2 phi2))))))))>
#<alt (* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/645120 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/3840 (sin (* 1/2 phi2)))))))))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (+ (* -1/8 (* (pow phi2 2) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/384 (* (pow phi2 2) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))))>
#<alt (+ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) (* 1/384 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))))))))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))>
#<alt (* lambda1 (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1))))>
#<alt (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))>
#<alt (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))>
#<alt (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (+ (* -1/8 (* (pow phi1 2) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/384 (* (pow phi1 2) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))))>
#<alt (+ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) (* 1/384 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))))))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* 1/2 phi1)>
#<alt (* 1/2 phi1)>
#<alt (* 1/2 phi1)>
#<alt (* 1/2 phi1)>
#<alt (* 1/2 phi1)>
#<alt (* 1/2 phi1)>
#<alt (* 1/2 phi1)>
#<alt (* 1/2 phi1)>
#<alt (* 1/2 phi1)>
#<alt (* 1/2 phi1)>
#<alt (* 1/2 phi1)>
#<alt (* 1/2 phi1)>
#<alt (cos (* 1/2 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
Calls

222 calls:

TimeVariablePointExpression
280.0ms
lambda1
@inf
(* R (sqrt (+ (* (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2))))) (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2)))))
67.0ms
phi1
@inf
(log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))
41.0ms
phi2
@inf
(log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))
34.0ms
lambda1
@0
(log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))
18.0ms
phi2
@inf
(+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2)))))

rewrite282.0ms (1.6%)

Algorithm
1×batch-egg-rewrite
Rules
2776×*-lowering-*.f32
2776×*-lowering-*.f64
1658×/-lowering-/.f32
1658×/-lowering-/.f64
1548×sum3-define
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
051325
1163322
2620201
34919201
08100201
Stop Event
1×iter limit
1×node limit
Counts
26 → 362
Calls
Call 1
Inputs
(* R (sqrt (+ (* (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2))))) (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2)))))
(sqrt (+ (* (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2))))) (+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2))))
(+ (* (- lambda1 lambda2) (- 0 (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2)))))
(- lambda1 lambda2)
(- 0 (* R phi1))
(* R phi1)
(* (- R (* (/ 1 phi1) (* R phi2))) (- 0 phi1))
(- R (* (/ 1 phi1) (* R phi2)))
(* (/ 1 phi1) (* R phi2))
(/ 1 phi1)
(- 0 (* (* R lambda2) (cos (* 1/2 phi1))))
(* (* R lambda2) (cos (* 1/2 phi1)))
(* R lambda2)
(cos (* 1/2 phi1))
(* R (sqrt (+ (* (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))) (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))))) (* (- phi1 phi2) (- phi1 phi2)))))
(sqrt (+ (* (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))) (exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))))) (* (- phi1 phi2) (- phi1 phi2))))
(exp (log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))))
(log (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))))
(* (- lambda1 lambda2) (cos (/ phi1 2)))
(* (sin (/ phi2 2)) (sin (/ phi1 2)))
(* (cos (/ phi2 2)) (* (- lambda1 lambda2) (cos (/ phi1 2))))
(* R phi2)
(- 0 phi1)
(* 1/2 phi1)
(cos (/ (+ phi1 phi2) 2))
(* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))
Outputs
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (-.f64 phi1 phi2)) R)
(exp.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.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)))))))))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (-.f64 phi1 phi2))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (exp.f64 (log.f64 (-.f64 phi1 phi2))))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(hypot.f64 (exp.f64 (log.f64 (-.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.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)))))))))
(pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.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(literal 1/2 binary64))
(pow.f64 (exp.f64 (log.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.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(literal 1/2 binary64))
(+.f64 #s(literal 0 binary64) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(+.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(+.f64 (*.f64 lambda1 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64))))) (+.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 0 binary64)) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(+.f64 (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 lambda1 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))))
(exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 lambda1 lambda2))))
(-.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(-.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) lambda2))
(fma.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))) (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) lambda1 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))
(+.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))
(+.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1)
(exp.f64 (log.f64 (-.f64 lambda1 lambda2)))
(-.f64 lambda1 lambda2)
(-.f64 #s(literal 0 binary64) (-.f64 lambda2 lambda1))
(-.f64 (+.f64 lambda1 #s(literal 0 binary64)) lambda2)
(fma.f64 #s(literal -1 binary64) lambda2 lambda1)
(+.f64 #s(literal 0 binary64) (*.f64 R (-.f64 #s(literal 0 binary64) phi1)))
(+.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) #s(literal 0 binary64))
(+.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) (*.f64 R #s(literal 0 binary64)))
(+.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) (*.f64 #s(literal 0 binary64) R))
(+.f64 (*.f64 R #s(literal 0 binary64)) (*.f64 R (-.f64 #s(literal 0 binary64) phi1)))
(+.f64 (*.f64 #s(literal 0 binary64) R) (*.f64 R (-.f64 #s(literal 0 binary64) phi1)))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 R phi1) #s(literal 0 binary64)))
(fma.f64 R (-.f64 #s(literal 0 binary64) phi1) #s(literal 0 binary64))
(fma.f64 phi1 (-.f64 #s(literal 0 binary64) R) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 R phi1) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) phi1) R #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) R) phi1 #s(literal 0 binary64))
(neg.f64 (*.f64 R phi1))
(/.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) #s(literal 1 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 #s(literal 1 binary64) phi1))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) R)) (/.f64 #s(literal 1 binary64) phi1))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) R) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) phi1))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) R) (-.f64 #s(literal 0 binary64) phi1)) #s(literal -1 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 0 binary64) R)) #s(literal -1 binary64))
(*.f64 R (-.f64 #s(literal 0 binary64) phi1))
(*.f64 phi1 (-.f64 #s(literal 0 binary64) R))
(*.f64 phi1 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) R)))
(*.f64 (*.f64 R phi1) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (*.f64 R phi1))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) R)
(*.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) #s(literal 1 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) R) phi1)
(/.f64 R (/.f64 #s(literal 1 binary64) phi1))
(/.f64 (*.f64 R phi1) #s(literal 1 binary64))
(/.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) #s(literal -1 binary64))
(*.f64 R phi1)
(*.f64 phi1 R)
(*.f64 (*.f64 R phi1) #s(literal 1 binary64))
(+.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(+.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)))
(+.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) (+.f64 #s(literal 0 binary64) (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))) #s(literal 0 binary64))
(+.f64 (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)) (*.f64 R (-.f64 #s(literal 0 binary64) phi1)))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 R phi1) (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1))))
(-.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R phi2) phi1))))
(-.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (/.f64 (*.f64 R phi2) phi1) (-.f64 #s(literal 0 binary64) phi1)))
(-.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (/.f64 (*.f64 R phi2) phi1)))
(-.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R phi2) phi1)) phi1))
(fma.f64 R (-.f64 #s(literal 0 binary64) phi1) (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)))
(fma.f64 #s(literal 0 binary64) (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(fma.f64 phi1 (-.f64 #s(literal 0 binary64) R) (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)))
(fma.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(fma.f64 #s(literal -1 binary64) (*.f64 R phi1) (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)))
(fma.f64 (-.f64 #s(literal 0 binary64) phi1) R (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)))
(fma.f64 (-.f64 #s(literal 0 binary64) R) phi1 (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(*.f64 phi1 (neg.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(*.f64 (neg.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) phi1)
(*.f64 (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) #s(literal -1 binary64)) phi1)
(+.f64 R (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R phi2) phi1)))
(+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R phi2) phi1)) R)
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
(-.f64 #s(literal 0 binary64) (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(-.f64 (+.f64 R #s(literal 0 binary64)) (/.f64 (*.f64 R phi2) phi1))
(fma.f64 R #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R phi2) phi1)))
(fma.f64 #s(literal 1 binary64) R (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R phi2) phi1)))
(fma.f64 (/.f64 #s(literal 1 binary64) phi1) (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) R)
(fma.f64 (*.f64 R phi2) (/.f64 #s(literal -1 binary64) phi1) R)
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) R)
(fma.f64 (/.f64 #s(literal -1 binary64) phi1) (*.f64 R phi2) R)
(fma.f64 (/.f64 R phi1) (-.f64 #s(literal 0 binary64) phi2) R)
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (/.f64 #s(literal 1 binary64) phi1) R)
(fma.f64 (/.f64 R (-.f64 #s(literal 0 binary64) phi1)) phi2 R)
(fma.f64 (/.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)) R R)
(*.f64 (+.f64 (/.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)) #s(literal 1 binary64)) R)
(neg.f64 (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R phi2) phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R phi2)))
(/.f64 (*.f64 R phi2) phi1)
(/.f64 (/.f64 (*.f64 R phi2) phi1) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 phi1 (*.f64 R phi2))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2))) phi1)
(/.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) #s(literal -1 binary64)) phi1)
(pow.f64 (/.f64 phi1 (*.f64 R phi2)) #s(literal -1 binary64))
(*.f64 R (/.f64 phi2 phi1))
(*.f64 phi2 (/.f64 R phi1))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi2) phi1))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (/.f64 (*.f64 R phi2) #s(literal 1 binary64)))
(*.f64 (*.f64 R phi2) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (/.f64 (*.f64 R phi2) phi1) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R phi2) phi1)))
(*.f64 (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R phi2) phi1)) #s(literal -1 binary64))
(*.f64 (/.f64 R phi1) phi2)
(*.f64 (/.f64 R phi1) (/.f64 phi2 #s(literal 1 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (/.f64 #s(literal -1 binary64) phi1))
(*.f64 (/.f64 phi2 phi1) R)
(*.f64 (/.f64 phi2 phi1) (/.f64 R #s(literal 1 binary64)))
(*.f64 (/.f64 (*.f64 R phi2) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (/.f64 (*.f64 R phi2) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) phi1))
(exp.f64 (log.f64 (/.f64 #s(literal 1 binary64) phi1)))
(-.f64 #s(literal 0 binary64) (/.f64 #s(literal -1 binary64) phi1))
(neg.f64 (/.f64 #s(literal -1 binary64) phi1))
(/.f64 #s(literal 1 binary64) phi1)
(/.f64 (/.f64 #s(literal 1 binary64) phi1) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) phi1))
(pow.f64 phi1 #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) phi1))
(*.f64 (/.f64 #s(literal -1 binary64) phi1) #s(literal -1 binary64))
(+.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) #s(literal 0 binary64))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 0 binary64)))
(fma.f64 R (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 0 binary64))
(fma.f64 (*.f64 R lambda2) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 0 binary64))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 lambda2 (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda2) #s(literal 0 binary64))
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 R (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(*.f64 lambda2 (neg.f64 (*.f64 R (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(*.f64 lambda2 (*.f64 (-.f64 #s(literal 0 binary64) R) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 lambda2 (*.f64 R (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (*.f64 R lambda2) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)))
(*.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 R (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 lambda2 (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (*.f64 lambda2 (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) R))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda2))
(*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) R)
(*.f64 (*.f64 R (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) lambda2))
(*.f64 (neg.f64 (*.f64 R (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) lambda2)
(*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 R lambda2))
(*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) R)) lambda2)
(*.f64 (*.f64 #s(literal -1 binary64) (*.f64 R (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) lambda2)
(*.f64 (*.f64 (-.f64 #s(literal 0 binary64) R) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) lambda2)
(*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) R) lambda2)
(*.f64 R (*.f64 lambda2 (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 lambda2 (*.f64 R (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 R lambda2))
(*.f64 (*.f64 lambda2 (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) R)
(*.f64 (*.f64 R (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) lambda2)
(*.f64 R lambda2)
(*.f64 lambda2 R)
(+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))))
(+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(cos.f64 (/.f64 phi1 #s(literal 2 binary64)))
(cos.f64 (/.f64 phi1 #s(literal -2 binary64)))
(-.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (-.f64 phi1 phi2)) R)
(exp.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.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)))))))))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (-.f64 phi1 phi2))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (exp.f64 (log.f64 (-.f64 phi1 phi2))))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(hypot.f64 (exp.f64 (log.f64 (-.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.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)))))))))
(pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.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(literal 1/2 binary64))
(pow.f64 (exp.f64 (log.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.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(literal 1/2 binary64))
(+.f64 #s(literal 0 binary64) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(+.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(+.f64 (*.f64 lambda1 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64))))) (+.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 0 binary64)) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(+.f64 (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 lambda1 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))))
(exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 lambda1 lambda2))))
(-.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(-.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) lambda2))
(fma.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))) (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) lambda1 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(+.f64 (log.f64 (-.f64 lambda1 lambda2)) (log.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(+.f64 (log.f64 (-.f64 lambda1 lambda2)) (log.f64 (+.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (log.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (log.f64 (-.f64 lambda1 lambda2)))
(+.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(+.f64 (*.f64 lambda1 (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(-.f64 (*.f64 lambda1 (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 lambda2 (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 lambda1 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) lambda1 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 lambda1 lambda2))
(+.f64 (/.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (neg.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))
(-.f64 (/.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))
(neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)))
(/.f64 (-.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))
(*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(*.f64 (-.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (/.f64 (-.f64 (-.f64 phi2 phi1) (+.f64 phi2 phi1)) #s(literal 2 binary64)) #s(literal 2 binary64))) (sin.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 phi2 phi1) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (/.f64 (-.f64 (-.f64 phi2 phi1) (+.f64 phi2 phi1)) #s(literal 2 binary64)) #s(literal 2 binary64))) (sin.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 phi2 phi1) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -1/2 binary64))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 lambda1 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 lambda1 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))))
(+.f64 (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) lambda1) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) lambda1))
(+.f64 (*.f64 (*.f64 lambda1 (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 lambda1 (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(+.f64 (*.f64 lambda1 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 lambda1 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))
(*.f64 R phi2)
(*.f64 phi2 R)
(*.f64 #s(literal 1 binary64) (*.f64 R phi2))
(*.f64 (*.f64 R phi2) #s(literal 1 binary64))
(+.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) phi1))
(+.f64 (-.f64 #s(literal 0 binary64) phi1) #s(literal 0 binary64))
(-.f64 #s(literal 0 binary64) phi1)
(-.f64 #s(literal 0 binary64) (-.f64 phi1 #s(literal 0 binary64)))
(fma.f64 #s(literal -1 binary64) phi1 #s(literal 0 binary64))
(neg.f64 phi1)
(/.f64 phi1 #s(literal -1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) phi1))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) phi1))
(/.f64 (-.f64 #s(literal 0 binary64) phi1) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal -1 binary64) phi1) #s(literal -1 binary64))
(*.f64 phi1 #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) phi1)
(*.f64 (-.f64 #s(literal 0 binary64) phi1) #s(literal 1 binary64))
(+.f64 #s(literal 0 binary64) (/.f64 phi1 #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) phi1)) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 phi1 #s(literal -2 binary64)))
(neg.f64 (/.f64 phi1 #s(literal -2 binary64)))
(/.f64 phi1 #s(literal 2 binary64))
(/.f64 (/.f64 phi1 #s(literal 2 binary64)) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))
(/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) phi1))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -2 binary64) phi1))
(/.f64 (-.f64 #s(literal 0 binary64) phi1) #s(literal -2 binary64))
(/.f64 (/.f64 phi1 #s(literal -2 binary64)) #s(literal -1 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) phi1)) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal -1 binary64))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 (/.f64 phi1 #s(literal 2 binary64)) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 phi1 #s(literal 2 binary64)))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 #s(literal -1 binary64) (/.f64 phi1 #s(literal -2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) #s(literal -1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) phi1)) #s(literal -1/2 binary64))
(+.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal -2 binary64)))))
(+.f64 (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64))) (/.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 (+.f64 phi2 phi1) #s(literal -2 binary64)))))
(+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (/.f64 phi1 #s(literal -2 binary64)) (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 #s(literal 0 binary64) (sin.f64 (-.f64 (/.f64 phi1 #s(literal -2 binary64)) (/.f64 phi2 #s(literal 2 binary64))))))
(+.f64 (*.f64 (cos.f64 (+.f64 (/.f64 phi2 #s(literal 2 binary64)) #s(literal 0 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (/.f64 phi2 #s(literal 2 binary64)) #s(literal 0 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))))
(exp.f64 (log.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal -2 binary64)))
(cos.f64 (*.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) #s(literal -2 binary64))))
(cos.f64 (+.f64 (/.f64 phi2 #s(literal -2 binary64)) (/.f64 phi1 #s(literal -2 binary64))))
(cos.f64 (+.f64 (/.f64 phi1 #s(literal -2 binary64)) (/.f64 phi2 #s(literal -2 binary64))))
(cos.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 phi2 phi1))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))))
(+.f64 #s(literal 0 binary64) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(+.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(+.f64 (*.f64 lambda1 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64))))) (+.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 0 binary64)) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(+.f64 (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 lambda1 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))))
(exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 lambda1 lambda2))))
(-.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(-.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) lambda2))
(fma.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))) (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) lambda1 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))

simplify768.0ms (4.3%)

Algorithm
1×egg-herbie
Rules
6986×*-lowering-*.f32
6986×*-lowering-*.f64
3132×+-lowering-+.f64
3132×+-lowering-+.f32
1782×*-commutative
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
0167923539
1599321233
0814321233
Stop Event
1×iter limit
1×node limit
Counts
888 → 888
Calls
Call 1
Inputs
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))
(+ (* R (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* (* R (* lambda1 (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))
(+ (* R (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (* (* R (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(+ (* R (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (* R (* lambda1 (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (* (* R (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(* R (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(* lambda1 (+ (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)))
(* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1))))
(* lambda1 (+ (* -1/2 (/ (* R (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)))))
(* -1 (* R (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (pow (- phi1 phi2) 2))) (* lambda1 (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* R (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))
(+ (* R (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* (* R (* lambda2 (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))
(+ (* R (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* 1/2 (* (* R (* lambda2 (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (* (* R (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(+ (* R (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (* R (* lambda2 (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (* (* R (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(* R (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* lambda2 (+ (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)))
(* lambda2 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2))))
(* lambda2 (+ (* -1/2 (/ (* R (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)))))
(* -1 (* R (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda2)) (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (pow (- phi1 phi2) 2))) (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda2)) (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda2)) (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (+ (* -1/4 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) (pow phi2 3))) (* 1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) (* 1/2 (/ (* R (* phi1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) phi2))) phi2)) (* R phi1)) phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (+ (* -1/4 (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ (* 1/24 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) (pow phi1 3))) (* 1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) (* 1/2 (/ (* R (* phi2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) phi1))) phi1)) (* R phi2)) phi1)))))
(sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* (* lambda1 (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))
(+ (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (* (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(+ (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (* lambda1 (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (* (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1))))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* -1/2 (/ (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (/ (+ (* 1/2 (/ (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (pow (- phi1 phi2) 2)) (* lambda1 (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* (* lambda2 (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))
(+ (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (* (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(+ (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (* lambda2 (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (* (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2))))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* -1/2 (/ (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (/ (+ (* 1/2 (/ (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (pow (- phi1 phi2) 2)) (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda2)) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (+ (* -1/4 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (+ (* -1/4 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)) (pow (- lambda1 lambda2) 2)))) (* 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi2 3))) (* 1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (/ (* phi1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) phi2)) (* 1/2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) phi2))) phi2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (+ (* -1/4 (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (+ (* -1/4 (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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)) (pow (- lambda1 lambda2) 2)))) (* 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi1 3))) (* 1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (/ (* phi2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) phi1)) (* 1/2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) phi1))) phi1)))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(* -1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
lambda1
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(* -1 lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(* -1 lambda2)
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(* R phi2)
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(* -1 (* R phi1))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* R phi2)
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(* -1 (/ (* R phi2) phi1))
(/ (- (* R phi1) (* R phi2)) phi1)
(/ (- (* R phi1) (* R phi2)) phi1)
(/ (- (* R phi1) (* R phi2)) phi1)
R
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
R
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
R
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(* -1 (/ (* R phi2) phi1))
(* phi2 (- (/ R phi2) (/ R phi1)))
(* phi2 (- (/ R phi2) (/ R phi1)))
(* phi2 (- (/ R phi2) (/ R phi1)))
(* -1 (/ (* R phi2) phi1))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R lambda2))
(- (* 1/8 (* R (* lambda2 (pow phi1 2)))) (* R lambda2))
(- (* (pow phi1 2) (- (* -1/384 (* R (* lambda2 (pow phi1 2)))) (* -1/8 (* R lambda2)))) (* R lambda2))
(- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/46080 (* R (* lambda2 (pow phi1 2)))) (* 1/384 (* R lambda2)))) (* -1/8 (* R lambda2)))) (* R lambda2))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R lambda2)
(+ (* -1/8 (* R (* lambda2 (pow phi1 2)))) (* R lambda2))
(+ (* R lambda2) (* (pow phi1 2) (+ (* -1/8 (* R lambda2)) (* 1/384 (* R (* lambda2 (pow phi1 2)))))))
(+ (* R lambda2) (* (pow phi1 2) (+ (* -1/8 (* R lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* R (* lambda2 (pow phi1 2)))) (* 1/384 (* R lambda2)))))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
1
(+ 1 (* -1/8 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8)))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(log (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(+ (log (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* -1 (/ lambda1 lambda2)))
(+ (log (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (- (* -1/2 (/ lambda1 (pow lambda2 2))) (/ 1 lambda2))))
(+ (log (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (- (* lambda1 (- (* -1/3 (/ lambda1 (pow lambda2 3))) (* 1/2 (/ 1 (pow lambda2 2))))) (/ 1 lambda2))))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (* -1 (log (/ 1 lambda1))))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ 1 lambda1))) (* -1 (/ lambda2 lambda1))))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ 1 lambda1))) (+ (* -1 (/ lambda2 lambda1)) (* -1/2 (/ (pow lambda2 2) (pow lambda1 2))))))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ 1 lambda1))) (+ (* -1 (/ lambda2 lambda1)) (+ (* -1/2 (/ (pow lambda2 2) (pow lambda1 2))) (* -1/3 (/ (pow lambda2 3) (pow lambda1 3)))))))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (* -1 (log (/ -1 lambda1))))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ -1 lambda1))) (* -1 (/ lambda2 lambda1))))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ -1 lambda1))) (* -1 (/ (+ lambda2 (* 1/2 (/ (pow lambda2 2) lambda1))) lambda1))))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ -1 lambda1))) (* -1 (/ (+ lambda2 (* -1 (/ (+ (* -1/2 (pow lambda2 2)) (* -1/3 (/ (pow lambda2 3) lambda1))) lambda1))) lambda1))))
(log (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (log (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* -1 (/ lambda2 lambda1)))
(+ (log (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (- (* -1/2 (/ lambda2 (pow lambda1 2))) (/ 1 lambda1))))
(+ (log (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (- (* lambda2 (- (* -1/3 (/ lambda2 (pow lambda1 3))) (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (* -1 (log (/ 1 lambda2))))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ 1 lambda2))) (* -1 (/ lambda1 lambda2))))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ 1 lambda2))) (+ (* -1 (/ lambda1 lambda2)) (* -1/2 (/ (pow lambda1 2) (pow lambda2 2))))))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ 1 lambda2))) (+ (* -1 (/ lambda1 lambda2)) (+ (* -1/2 (/ (pow lambda1 2) (pow lambda2 2))) (* -1/3 (/ (pow lambda1 3) (pow lambda2 3)))))))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (* -1 (log (/ -1 lambda2))))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ -1 lambda2))) (* -1 (/ lambda1 lambda2))))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ -1 lambda2))) (* -1 (/ (+ lambda1 (* 1/2 (/ (pow lambda1 2) lambda2))) lambda2))))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ -1 lambda2))) (* -1 (/ (+ lambda1 (* -1 (/ (+ (* -1/2 (pow lambda1 2)) (* -1/3 (/ (pow lambda1 3) lambda2))) lambda2))) lambda2))))
(log (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (log (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/2 (/ (* phi1 (sin (* 1/2 phi2))) (cos (* 1/2 phi2)))))
(+ (log (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/2 (/ (sin (* 1/2 phi2)) (cos (* 1/2 phi2)))) (* 1/2 (* phi1 (- (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 2))) 1/4))))))
(+ (log (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/2 (/ (sin (* 1/2 phi2)) (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/6 (* phi1 (+ (* -3/8 (/ (sin (* 1/2 phi2)) (cos (* 1/2 phi2)))) (+ (* -1/4 (/ (pow (sin (* 1/2 phi2)) 3) (pow (cos (* 1/2 phi2)) 3))) (* 1/8 (/ (sin (* 1/2 phi2)) (cos (* 1/2 phi2)))))))) (* 1/2 (- (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 2))) 1/4)))))))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (log (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/2 (/ (* phi2 (sin (* 1/2 phi1))) (cos (* 1/2 phi1)))))
(+ (log (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/2 (/ (sin (* 1/2 phi1)) (cos (* 1/2 phi1)))) (* 1/2 (* phi2 (- (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 2))) 1/4))))))
(+ (log (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/2 (/ (sin (* 1/2 phi1)) (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/6 (* phi2 (+ (* -3/8 (/ (sin (* 1/2 phi1)) (cos (* 1/2 phi1)))) (+ (* -1/4 (/ (pow (sin (* 1/2 phi1)) 3) (pow (cos (* 1/2 phi1)) 3))) (* 1/8 (/ (sin (* 1/2 phi1)) (cos (* 1/2 phi1)))))))) (* 1/2 (- (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 2))) 1/4)))))))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))
(log (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(* lambda1 (cos (* 1/2 phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (cos (* 1/2 phi1)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (cos (* 1/2 phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(- lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* 1/2 (* phi2 (sin (* 1/2 phi1))))
(* phi2 (+ (* -1/48 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))
(* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/3840 (* (pow phi2 2) (sin (* 1/2 phi1))))))))
(* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/645120 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/3840 (sin (* 1/2 phi1)))))))))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* 1/2 (* phi1 (sin (* 1/2 phi2))))
(* phi1 (+ (* -1/48 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/3840 (* (pow phi1 2) (sin (* 1/2 phi2))))))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/645120 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/3840 (sin (* 1/2 phi2)))))))))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(+ (* -1/8 (* (pow phi2 2) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/384 (* (pow phi2 2) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))))
(+ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) (* 1/384 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))))))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(* lambda1 (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(* lambda1 (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(* lambda1 (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1))))
(* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))
(* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(+ (* -1/8 (* (pow phi1 2) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/384 (* (pow phi1 2) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))))
(+ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) (* 1/384 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* 1/2 phi1)
(* 1/2 phi1)
(* 1/2 phi1)
(* 1/2 phi1)
(* 1/2 phi1)
(* 1/2 phi1)
(* 1/2 phi1)
(* 1/2 phi1)
(* 1/2 phi1)
(* 1/2 phi1)
(* 1/2 phi1)
(* 1/2 phi1)
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
Outputs
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
(* R (sqrt (+ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
(* R (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* R (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* (* R (* lambda1 (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))
(+.f64 (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (*.f64 (*.f64 R lambda1) (*.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))))
(+ (* R (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (* (* R (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(+.f64 (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))) (*.f64 R (*.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))))
(+ (* R (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (* R (* lambda1 (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (* (* R (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(+.f64 (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 lambda1 (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))) (*.f64 R (*.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 R lambda1) (*.f64 (*.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))))))))))
(* R (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (+ (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)))
(*.f64 lambda1 (+.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 R (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) lambda1)))
(* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1))))
(*.f64 lambda1 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 lambda1))) (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (/.f64 (*.f64 R (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) lambda1)))
(* lambda1 (+ (* -1/2 (/ (* R (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)))))
(*.f64 lambda1 (+.f64 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 lambda1))) (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (/.f64 (*.f64 R (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) lambda1)) (*.f64 #s(literal -1/2 binary64) (*.f64 R (/.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1))))))))
(* -1 (* R (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 R (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) lambda1)))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (+.f64 (*.f64 R (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda1)))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (pow (- phi1 phi2) 2))) (* lambda1 (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (-.f64 (*.f64 R (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda1)) lambda1)))
(* R (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* R (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* (* R (* lambda2 (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))
(+.f64 (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))))
(+ (* R (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* 1/2 (* (* R (* lambda2 (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (* (* R (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(+.f64 (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))) (*.f64 R (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))))
(+ (* R (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (* R (* lambda2 (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (* (* R (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(+.f64 (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 lambda2 (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))) (*.f64 R (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 R lambda2) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))))))))
(* R (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)))
(*.f64 lambda2 (+.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 R (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) lambda2)))
(* lambda2 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2))))
(*.f64 lambda2 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 lambda2))) (*.f64 R (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (/.f64 (*.f64 R (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) lambda2)))
(* lambda2 (+ (* -1/2 (/ (* R (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* R (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)))))
(*.f64 lambda2 (+.f64 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 lambda2))) (*.f64 R (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (/.f64 (*.f64 R (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) lambda2)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))))
(* -1 (* R (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 R (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) lambda2)))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda2)) (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (+.f64 (*.f64 R (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda2)))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (pow (- phi1 phi2) 2))) (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda2)) (* R (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda2)) (* R (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (-.f64 (*.f64 R (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (/.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda2)) lambda2)))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))
(+ (* 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)))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))))
(+ (* 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (*.f64 (*.f64 R phi2) (+.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (*.f64 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))))))
(+ (* 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)) (pow (- lambda1 lambda2) 2)))) (* 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (*.f64 (*.f64 R phi2) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (+.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))))))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 phi2 phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) (pow phi2 3))) (* 1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi2 2)))))))
(*.f64 phi2 (+.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 R phi1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 phi2 phi2))) (/.f64 (*.f64 R (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))
(* -1 (* R phi2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 R (/.f64 (+.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) phi2)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) (* 1/2 (/ (* R (* phi1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) phi2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 R phi1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) phi2))) phi2)) phi2)))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi1) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 phi1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))))))
(+ (* 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)) (pow (- lambda1 lambda2) 2)))) (* 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi1 2))))))
(*.f64 phi1 (+.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 phi1 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) (pow phi1 3))) (* 1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 R phi2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 (*.f64 R (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (/.f64 (*.f64 R phi2) phi1))))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (+.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) phi1)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) (* 1/2 (/ (* R (* phi2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) phi1))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 R phi2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) phi1))) phi1)) phi1)))
(sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* (* lambda1 (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))
(+.f64 (hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (*.f64 lambda1 (*.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (* (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(+.f64 (hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))))))
(+ (sqrt (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (* lambda1 (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (* (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(+.f64 (hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) #s(literal 3 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))))))))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))
(*.f64 lambda1 (-.f64 (+.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)) (/.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1))))))
(*.f64 lambda1 (-.f64 (-.f64 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)) (/.f64 (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* -1/2 (/ (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))))
(*.f64 lambda1 (-.f64 (-.f64 (+.f64 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1)))))) (/.f64 (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 (neg.f64 lambda1) (-.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 (neg.f64 lambda1) (-.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (+.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) lambda1) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (/ (+ (* 1/2 (/ (* (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (pow (- phi1 phi2) 2)) (* lambda1 (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 (neg.f64 lambda1) (-.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 lambda1 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda1)) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* (* lambda2 (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))
(+.f64 (hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (*.f64 lambda2 (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))) (* (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(+.f64 (hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))))))
(+ (sqrt (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (* lambda2 (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))) (- (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2)))))))) (* (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (sqrt (/ 1 (+ (pow (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) 2) (pow (- phi1 phi2) 2))))))))
(+.f64 (hypot.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) #s(literal 3 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))))))))))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))
(*.f64 lambda2 (-.f64 (-.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (/.f64 (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2))))))
(*.f64 lambda2 (-.f64 (-.f64 (+.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* -1/2 (/ (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))))
(*.f64 lambda2 (-.f64 (-.f64 (+.f64 (+.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 (*.f64 lambda2 lambda2))))) (/.f64 (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* -1 (/ (+ (* 1/2 (/ (* (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (pow (- phi1 phi2) 2)) (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda2)) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda2)) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (+ (* -1/4 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (+.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))))) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (+ (* -1/4 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)) (pow (- lambda1 lambda2) 2)))) (* 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (+.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))) (*.f64 phi2 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 phi2 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi2 3))) (* 1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow phi2 2)))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 phi1 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 phi2 phi2))) (/.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))
(* -1 phi2)
(-.f64 #s(literal 0 binary64) phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) phi2))) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi1 (/.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) phi2)) phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (/ (* phi1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) phi2)) (* 1/2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) phi2))) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 phi1 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) phi2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) phi2)) phi2)))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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)) (pow (- lambda1 lambda2) 2)))) (* 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) (pow (- lambda1 lambda2) 2))) (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))) (*.f64 phi1 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow phi1 2))))))
(*.f64 phi1 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (/.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 phi1 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) (pow phi1 3))) (* 1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 phi2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 (/.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) phi1)) phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (/ (* phi2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2)) phi1)) (* 1/2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) 2))) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 phi2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) phi1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) phi1)) phi1)))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(-.f64 (+.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(-.f64 (+.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (+ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(-.f64 (+.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))
(*.f64 lambda1 (-.f64 (+.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)) (/.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))
(*.f64 lambda1 (-.f64 (+.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)) (/.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (+ (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (/ (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda1)))))
(*.f64 lambda1 (-.f64 (+.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)) (/.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 (neg.f64 lambda1) (-.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 (neg.f64 lambda1) (-.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda2 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 (neg.f64 lambda1) (-.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(+.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(+.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (+ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(+.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))
(*.f64 lambda2 (-.f64 (-.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (/.f64 (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))
(*.f64 lambda2 (-.f64 (-.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (/.f64 (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) lambda2)) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))))
(*.f64 lambda2 (-.f64 (-.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (/.f64 (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (* lambda1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(+ (* 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)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))))))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* 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)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 lambda1 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 lambda1 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 lambda1 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(*.f64 (neg.f64 lambda1) (+.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(*.f64 (neg.f64 lambda1) (+.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(*.f64 (neg.f64 lambda1) (+.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64)))
lambda1
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 lambda2 (+.f64 (/.f64 lambda1 lambda2) #s(literal -1 binary64)))
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 lambda2 (+.f64 (/.f64 lambda1 lambda2) #s(literal -1 binary64)))
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 lambda2 (+.f64 (/.f64 lambda1 lambda2) #s(literal -1 binary64)))
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(-.f64 #s(literal 0 binary64) (*.f64 lambda2 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(-.f64 #s(literal 0 binary64) (*.f64 lambda2 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(-.f64 #s(literal 0 binary64) (*.f64 lambda2 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* R phi2)
(*.f64 R phi2)
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* R phi2)
(*.f64 R phi2)
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (/.f64 (*.f64 R phi1) phi2) R))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (/.f64 (*.f64 R phi1) phi2) R))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (/.f64 (*.f64 R phi1) phi2) R))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* -1 (/ (* R phi2) phi1))
(-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R phi2) phi1))
(/ (- (* R phi1) (* R phi2)) phi1)
(/.f64 (*.f64 R (-.f64 phi1 phi2)) phi1)
(/ (- (* R phi1) (* R phi2)) phi1)
(/.f64 (*.f64 R (-.f64 phi1 phi2)) phi1)
(/ (- (* R phi1) (* R phi2)) phi1)
(/.f64 (*.f64 R (-.f64 phi1 phi2)) phi1)
R
(+ R (* -1 (/ (* R phi2) phi1)))
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
(+ R (* -1 (/ (* R phi2) phi1)))
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
(+ R (* -1 (/ (* R phi2) phi1)))
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
R
(+ R (* -1 (/ (* R phi2) phi1)))
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
(+ R (* -1 (/ (* R phi2) phi1)))
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
(+ R (* -1 (/ (* R phi2) phi1)))
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
R
(+ R (* -1 (/ (* R phi2) phi1)))
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
(+ R (* -1 (/ (* R phi2) phi1)))
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
(+ R (* -1 (/ (* R phi2) phi1)))
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
(* -1 (/ (* R phi2) phi1))
(-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R phi2) phi1))
(* phi2 (- (/ R phi2) (/ R phi1)))
(*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1)))
(* phi2 (- (/ R phi2) (/ R phi1)))
(*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1)))
(* phi2 (- (/ R phi2) (/ R phi1)))
(*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1)))
(* -1 (/ (* R phi2) phi1))
(-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R phi2) phi1))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 R phi2)) (/.f64 R phi1)))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 R phi2)) (/.f64 R phi1)))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 R phi2)) (/.f64 R phi1)))
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(- (* 1/8 (* R (* lambda2 (pow phi1 2)))) (* R lambda2))
(-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 R lambda2))
(- (* (pow phi1 2) (- (* -1/384 (* R (* lambda2 (pow phi1 2)))) (* -1/8 (* R lambda2)))) (* R lambda2))
(-.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal -1/384 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 R lambda2)))) (*.f64 R lambda2))
(- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/46080 (* R (* lambda2 (pow phi1 2)))) (* 1/384 (* R lambda2)))) (* -1/8 (* R lambda2)))) (* R lambda2))
(-.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal 1/46080 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 #s(literal -1/384 binary64) (*.f64 R lambda2)))) (*.f64 #s(literal 1/8 binary64) (*.f64 R lambda2)))) (*.f64 R lambda2))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R lambda2)
(*.f64 R lambda2)
(+ (* -1/8 (* R (* lambda2 (pow phi1 2)))) (* R lambda2))
(+.f64 (*.f64 R lambda2) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))))
(+ (* R lambda2) (* (pow phi1 2) (+ (* -1/8 (* R lambda2)) (* 1/384 (* R (* lambda2 (pow phi1 2)))))))
(+.f64 (*.f64 R lambda2) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 R lambda2)) (*.f64 (*.f64 #s(literal 1/384 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))))))
(+ (* R lambda2) (* (pow phi1 2) (+ (* -1/8 (* R lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* R (* lambda2 (pow phi1 2)))) (* 1/384 (* R lambda2)))))))
(+.f64 (*.f64 R lambda2) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 R lambda2)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal 1/384 binary64) R) lambda2) (*.f64 (*.f64 #s(literal -1/46080 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))))))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow phi1 2)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/8 binary64)))
(+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/384 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 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)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 (*.f64 lambda1 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 3 binary64)))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 lambda1 (-.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(*.f64 lambda1 (-.f64 (+.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (/.f64 (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1)))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 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)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (*.f64 R lambda1) (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 lambda2 (-.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 R (*.f64 lambda2 lambda2))))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(*.f64 lambda2 (-.f64 (+.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 R (*.f64 lambda2 lambda2))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (/.f64 (*.f64 (*.f64 R lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) lambda2)))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi1) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 phi1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(*.f64 phi1 (+.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (*.f64 R phi2) (*.f64 phi1 phi1)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (*.f64 (/.f64 R phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) (/.f64 (*.f64 R phi2) phi1))))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (+.f64 (*.f64 R phi2) (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (*.f64 R (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) phi1)) phi1)))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))
(+ (* 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)))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))))
(+ (* 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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 phi2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (*.f64 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (*.f64 (*.f64 R phi2) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))))))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R phi2) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(*.f64 phi2 (+.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (*.f64 R phi1) (*.f64 phi2 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (*.f64 (/.f64 R phi2) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))))
(* -1 (* R phi2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 R (/.f64 (+.f64 (*.f64 R phi1) (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (*.f64 R (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2)))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 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)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 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)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))))) (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 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))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 (*.f64 lambda1 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 3 binary64)))))))) (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (/.f64 lambda2 lambda1) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda1 lambda1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (+.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 lambda2 lambda1) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1)))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 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)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 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)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 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))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 3 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda2 (+.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(*.f64 lambda2 (+.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (/.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (+.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 lambda1 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) lambda2)))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))) (*.f64 phi1 (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(*.f64 phi1 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (*.f64 (/.f64 #s(literal 1/2 binary64) phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)) (/.f64 phi2 (*.f64 phi1 phi1))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))))
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))) phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) phi1)))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))))) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))) (*.f64 phi2 (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (*.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(*.f64 phi2 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 phi1 (*.f64 phi2 phi2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))) (/.f64 phi1 phi2))))
(* -1 phi2)
(-.f64 #s(literal 0 binary64) phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))) phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) phi2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* 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)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(+ (* 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)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))))))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(log (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(log.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (log (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* -1 (/ lambda1 lambda2)))
(-.f64 (log.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 lambda1 lambda2))
(+ (log (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (- (* -1/2 (/ lambda1 (pow lambda2 2))) (/ 1 lambda2))))
(+.f64 (log.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 lambda1 (*.f64 lambda2 lambda2))) (/.f64 #s(literal 1 binary64) lambda2))))
(+ (log (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (- (* lambda1 (- (* -1/3 (/ lambda1 (pow lambda2 3))) (* 1/2 (/ 1 (pow lambda2 2))))) (/ 1 lambda2))))
(+.f64 (log.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (-.f64 (/.f64 (*.f64 #s(literal -1/3 binary64) lambda1) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)))) (/.f64 #s(literal 1 binary64) lambda2))))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (* -1 (log (/ 1 lambda1))))
(+.f64 (log.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (log.f64 lambda1))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ 1 lambda1))) (* -1 (/ lambda2 lambda1))))
(+.f64 (log.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 (log.f64 lambda1) (/.f64 lambda2 lambda1)))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ 1 lambda1))) (+ (* -1 (/ lambda2 lambda1)) (* -1/2 (/ (pow lambda2 2) (pow lambda1 2))))))
(+.f64 (log.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (+.f64 (log.f64 lambda1) (-.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda2 lambda2)) (*.f64 lambda1 lambda1)) (/.f64 lambda2 lambda1))))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ 1 lambda1))) (+ (* -1 (/ lambda2 lambda1)) (+ (* -1/2 (/ (pow lambda2 2) (pow lambda1 2))) (* -1/3 (/ (pow lambda2 3) (pow lambda1 3)))))))
(+.f64 (log.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (+.f64 (log.f64 lambda1) (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda2 lambda2)) (*.f64 lambda1 lambda1)) (/.f64 lambda2 lambda1)) (/.f64 (*.f64 #s(literal -1/3 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 lambda1 (*.f64 lambda1 lambda1))))))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (* -1 (log (/ -1 lambda1))))
(-.f64 (log.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (log.f64 (/.f64 #s(literal -1 binary64) lambda1)))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ -1 lambda1))) (* -1 (/ lambda2 lambda1))))
(-.f64 (-.f64 (log.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (log.f64 (/.f64 #s(literal -1 binary64) lambda1))) (/.f64 lambda2 lambda1))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ -1 lambda1))) (* -1 (/ (+ lambda2 (* 1/2 (/ (pow lambda2 2) lambda1))) lambda1))))
(-.f64 (-.f64 (log.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (log.f64 (/.f64 #s(literal -1 binary64) lambda1))) (/.f64 (+.f64 lambda2 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) lambda1)) lambda1))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ -1 lambda1))) (* -1 (/ (+ lambda2 (* -1 (/ (+ (* -1/2 (pow lambda2 2)) (* -1/3 (/ (pow lambda2 3) lambda1))) lambda1))) lambda1))))
(-.f64 (-.f64 (log.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (log.f64 (/.f64 #s(literal -1 binary64) lambda1))) (/.f64 (-.f64 lambda2 (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 #s(literal -1/3 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2))) lambda1)) lambda1)) lambda1))
(log (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(log.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (log (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* -1 (/ lambda2 lambda1)))
(-.f64 (log.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 lambda2 lambda1))
(+ (log (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (- (* -1/2 (/ lambda2 (pow lambda1 2))) (/ 1 lambda1))))
(+.f64 (log.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 lambda2 (*.f64 lambda1 lambda1))) (/.f64 #s(literal 1 binary64) lambda1))))
(+ (log (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (- (* lambda2 (- (* -1/3 (/ lambda2 (pow lambda1 3))) (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))))
(+.f64 (log.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (-.f64 (/.f64 (*.f64 #s(literal -1/3 binary64) lambda2) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)))) (/.f64 #s(literal 1 binary64) lambda1))))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (* -1 (log (/ 1 lambda2))))
(+.f64 (log.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (log.f64 lambda2))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ 1 lambda2))) (* -1 (/ lambda1 lambda2))))
(+.f64 (log.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (-.f64 (log.f64 lambda2) (/.f64 lambda1 lambda2)))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ 1 lambda2))) (+ (* -1 (/ lambda1 lambda2)) (* -1/2 (/ (pow lambda1 2) (pow lambda2 2))))))
(+.f64 (log.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (-.f64 (log.f64 lambda2) (/.f64 lambda1 lambda2)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda1)) (*.f64 lambda2 lambda2))))
(+ (log (* -1 (cos (* 1/2 (+ phi1 phi2))))) (+ (* -1 (log (/ 1 lambda2))) (+ (* -1 (/ lambda1 lambda2)) (+ (* -1/2 (/ (pow lambda1 2) (pow lambda2 2))) (* -1/3 (/ (pow lambda1 3) (pow lambda2 3)))))))
(+.f64 (log.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (-.f64 (log.f64 lambda2) (/.f64 lambda1 lambda2)) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda1)) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 #s(literal -1/3 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (*.f64 lambda2 (*.f64 lambda2 lambda2))))))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (* -1 (log (/ -1 lambda2))))
(-.f64 (log.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (log.f64 (/.f64 #s(literal -1 binary64) lambda2)))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ -1 lambda2))) (* -1 (/ lambda1 lambda2))))
(-.f64 (-.f64 (log.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (log.f64 (/.f64 #s(literal -1 binary64) lambda2))) (/.f64 lambda1 lambda2))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ -1 lambda2))) (* -1 (/ (+ lambda1 (* 1/2 (/ (pow lambda1 2) lambda2))) lambda2))))
(-.f64 (-.f64 (log.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (log.f64 (/.f64 #s(literal -1 binary64) lambda2))) (/.f64 (+.f64 lambda1 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) lambda2)) lambda2))
(+ (log (cos (* 1/2 (+ phi1 phi2)))) (+ (* -1 (log (/ -1 lambda2))) (* -1 (/ (+ lambda1 (* -1 (/ (+ (* -1/2 (pow lambda1 2)) (* -1/3 (/ (pow lambda1 3) lambda2))) lambda2))) lambda2))))
(-.f64 (-.f64 (log.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (log.f64 (/.f64 #s(literal -1 binary64) lambda2))) (/.f64 (-.f64 lambda1 (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda1)) (*.f64 #s(literal -1/3 binary64) (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) lambda2))) lambda2)) lambda2))
(log (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (log (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/2 (/ (* phi1 (sin (* 1/2 phi2))) (cos (* 1/2 phi2)))))
(+.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (log (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/2 (/ (sin (* 1/2 phi2)) (cos (* 1/2 phi2)))) (* 1/2 (* phi1 (- (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 2))) 1/4))))))
(+.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal -1/4 binary64))))))
(+ (log (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/2 (/ (sin (* 1/2 phi2)) (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/6 (* phi1 (+ (* -3/8 (/ (sin (* 1/2 phi2)) (cos (* 1/2 phi2)))) (+ (* -1/4 (/ (pow (sin (* 1/2 phi2)) 3) (pow (cos (* 1/2 phi2)) 3))) (* 1/8 (/ (sin (* 1/2 phi2)) (cos (* 1/2 phi2)))))))) (* 1/2 (- (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 2))) 1/4)))))))
(+.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (+.f64 (+.f64 (/.f64 (*.f64 #s(literal -3/8 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 3 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 3 binary64)))) (/.f64 (*.f64 #s(literal 1/8 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal -1/4 binary64))))))))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (log (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/2 (/ (* phi2 (sin (* 1/2 phi1))) (cos (* 1/2 phi1)))))
(+.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (log (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/2 (/ (sin (* 1/2 phi1)) (cos (* 1/2 phi1)))) (* 1/2 (* phi2 (- (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 2))) 1/4))))))
(+.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1/4 binary64)))))))
(+ (log (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/2 (/ (sin (* 1/2 phi1)) (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/6 (* phi2 (+ (* -3/8 (/ (sin (* 1/2 phi1)) (cos (* 1/2 phi1)))) (+ (* -1/4 (/ (pow (sin (* 1/2 phi1)) 3) (pow (cos (* 1/2 phi1)) 3))) (* 1/8 (/ (sin (* 1/2 phi1)) (cos (* 1/2 phi1)))))))) (* 1/2 (- (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 2))) 1/4)))))))
(+.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi2) (+.f64 (/.f64 (*.f64 #s(literal -3/8 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))) (/.f64 (*.f64 #s(literal 1/8 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1/4 binary64))))))))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(log (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))
(log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda1 (cos (* 1/2 phi1)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)))
(* lambda1 (cos (* 1/2 phi1)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda1 (cos (* 1/2 phi1)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2)
(+.f64 lambda1 (-.f64 (*.f64 (*.f64 (*.f64 phi1 phi1) #s(literal -1/8 binary64)) (-.f64 lambda1 lambda2)) lambda2))
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2)
(+.f64 lambda1 (-.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64)) (*.f64 (*.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64)) (-.f64 lambda1 lambda2)))) lambda2))
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(+.f64 lambda1 (-.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64)) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/384 binary64)))))) lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* 1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* phi2 (+ (* -1/48 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))
(*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 phi2 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)))))
(* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/3840 (* (pow phi2 2) (sin (* 1/2 phi1))))))))
(*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/48 binary64)) (*.f64 (*.f64 #s(literal 1/3840 binary64) (*.f64 phi2 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/645120 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/3840 (sin (* 1/2 phi1)))))))))
(*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/48 binary64)) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (*.f64 #s(literal -1/645120 binary64) (*.f64 phi2 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1/3840 binary64))))))))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* 1/2 (* phi1 (sin (* 1/2 phi2))))
(*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* phi1 (+ (* -1/48 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))
(*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 phi1 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)))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/3840 (* (pow phi1 2) (sin (* 1/2 phi2))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/48 binary64)) (*.f64 (*.f64 #s(literal 1/3840 binary64) (*.f64 phi1 phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/645120 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/3840 (sin (* 1/2 phi2)))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/48 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal -1/645120 binary64) (*.f64 phi1 phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1/3840 binary64))))))))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/8 (* (pow phi2 2) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))))
(+ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/384 (* (pow phi2 2) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1/8 binary64)) (*.f64 #s(literal 1/384 binary64) (*.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))))))
(+ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) (* 1/384 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))))))))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1/8 binary64)) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 #s(literal -1/46080 binary64) (*.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/384 binary64)))))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)))
(* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1))))
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1))))
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda1))))
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(-.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)))
(* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)))
(* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/8 (* (pow phi1 2) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 (*.f64 phi1 phi1) #s(literal -1/8 binary64)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/384 (* (pow phi1 2) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal -1/8 binary64)) (*.f64 (*.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) (* 1/384 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))))))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal -1/8 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal -1/46080 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 phi1))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/384 binary64)))))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* (cos (* 1/2 phi1)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) 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))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) 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))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* 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)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(+ (* 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)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))))))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))

eval258.0ms (1.4%)

Compiler

Compiled 39945 to 3103 computations (92.2% saved)

prune216.0ms (1.2%)

Pruning

52 alts after pruning (50 fresh and 2 done)

PrunedKeptTotal
New1296161312
Fresh63440
Picked505
Done022
Total1307521359
Accuracy
100.0%
Counts
1359 → 52
Alt Table
Click to see full alt table
StatusAccuracyProgram
33.0%
(/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 #s(literal 1 binary64) phi1))
10.1%
(-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 R lambda2))
57.2%
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
7.5%
(-.f64 #s(literal 0 binary64) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda2)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda2))))
8.6%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R))
16.1%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/384 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))))
5.9%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))))
6.9%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 (/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi1)))))
8.1%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2) (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))))))
1.0%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) phi1)) #s(literal -1 binary64))))))
24.5%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
52.1%
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
2.4%
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
8.2%
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda1)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda1)))
37.9%
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
54.9%
(*.f64 (-.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) phi1))
58.3%
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (-.f64 #s(literal 0 binary64) phi1))
▶55.8%
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (neg.f64 phi1))
58.3%
(*.f64 (-.f64 R (*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (/.f64 #s(literal -1 binary64) phi1)))) (-.f64 #s(literal 0 binary64) phi1))
25.1%
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
55.2%
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))))
57.2%
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (-.f64 #s(literal 0 binary64) phi1))
11.1%
(*.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
24.3%
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
▶23.6%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
12.9%
(*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
8.4%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
9.3%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
8.6%
(*.f64 (neg.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) lambda2)
5.6%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
24.4%
(*.f64 (neg.f64 (*.f64 R lambda1)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
58.8%
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
54.7%
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
83.4%
(*.f64 R (hypot.f64 (fma.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 lambda1 (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
99.9%
(*.f64 R (hypot.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
✓99.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 phi1 phi2)))
▶99.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
▶84.4%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 phi1 phi2)))
91.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
79.5%
(*.f64 R (hypot.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 phi1 phi2)))
82.4%
(*.f64 R (hypot.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 phi1 phi2)))
22.6%
(*.f64 R (hypot.f64 (exp.f64 (-.f64 (log.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (log.f64 (/.f64 #s(literal -1 binary64) lambda1)))) (-.f64 phi1 phi2)))
20.3%
(*.f64 R (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 phi1 phi2)))
24.5%
(*.f64 R (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
23.6%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
53.3%
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
9.4%
(*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
58.1%
(*.f64 R (sqrt.f64 (+.f64 (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
19.6%
(*.f64 R (sqrt.f64 (*.f64 phi2 phi2)))
✓28.9%
(*.f64 R phi2)
6.2%
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
▶33.1%
(neg.f64 (*.f64 R phi1))
Compiler

Compiled 2144 to 1434 computations (33.1% saved)

simplify177.0ms (1%)

Algorithm
1×egg-herbie
Localize:

Found 18 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(-.f64 lambda1 lambda2)
✓cost-diff0
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
✓cost-diff0
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 phi1 phi2))
✓cost-diff0
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 phi1 phi2)))
✓cost-diff0
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
✓cost-diff0
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
✓cost-diff0
(*.f64 R lambda2)
✓cost-diff0
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
✓cost-diff0
(/.f64 #s(literal 1 binary64) phi1)
✓cost-diff128
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))
✓cost-diff128
(-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2)))
✓cost-diff320
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (neg.f64 phi1))
✓cost-diff-64
(neg.f64 (*.f64 R phi1))
✓cost-diff0
(*.f64 R phi1)
✓cost-diff0
(-.f64 lambda1 lambda2)
✓cost-diff0
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
✓cost-diff0
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2))
✓cost-diff0
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
Rules
2430×*-lowering-*.f32
2430×*-lowering-*.f64
1864×sum4-define
1530×fma-lowering-fma.f32
1530×fma-lowering-fma.f64
Iterations

Useful iterations: 3 (0.0ms)

IterNodesCost
050332
1133325
2375323
31765320
46890320
08114320
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(* R (sqrt (+ (* (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2)))))
R
(sqrt (+ (* (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2))))
(* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2)))))
(- lambda1 lambda2)
lambda1
lambda2
(- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2))))
(* (cos (/ phi2 2)) (cos (/ phi1 2)))
(cos (/ phi2 2))
(/ phi2 2)
phi2
2
(cos (/ phi1 2))
(/ phi1 2)
phi1
(* (sin (/ phi2 2)) (sin (/ phi1 2)))
(sin (/ phi2 2))
(sin (/ phi1 2))
(- phi1 phi2)
(neg (* R phi1))
(* R phi1)
R
phi1
(* (- R (* (/ 1 phi1) (* R phi2))) (neg phi1))
(- R (* (/ 1 phi1) (* R phi2)))
R
(* (/ 1 phi1) (* R phi2))
(/ 1 phi1)
1
phi1
(* R phi2)
phi2
(neg phi1)
(* (* R lambda2) (cos (* 1/2 (+ phi1 phi2))))
(* R lambda2)
R
lambda2
(cos (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
1/2
(+ phi1 phi2)
phi1
phi2
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))) (* (- phi1 phi2) (- phi1 phi2)))))
R
(sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))) (* (- phi1 phi2) (- phi1 phi2))))
(* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))
(- lambda1 lambda2)
lambda1
lambda2
(+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))
(cos (* 1/2 phi1))
(* 1/2 phi1)
1/2
phi1
(* (* -1/2 phi2) (sin (* 1/2 phi1)))
(* -1/2 phi2)
-1/2
phi2
(sin (* 1/2 phi1))
(- phi1 phi2)
Outputs
(* R (sqrt (+ (* (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
R
(sqrt (+ (* (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2))
(* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(* (cos (/ phi2 2)) (cos (/ phi1 2)))
(*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
(cos (/ phi2 2))
(cos.f64 (/.f64 phi2 #s(literal 2 binary64)))
(/ phi2 2)
(/.f64 phi2 #s(literal 2 binary64))
phi2
2
#s(literal 2 binary64)
(cos (/ phi1 2))
(cos.f64 (/.f64 phi1 #s(literal 2 binary64)))
(/ phi1 2)
(/.f64 phi1 #s(literal 2 binary64))
phi1
(* (sin (/ phi2 2)) (sin (/ phi1 2)))
(*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))
(sin (/ phi2 2))
(sin.f64 (/.f64 phi2 #s(literal 2 binary64)))
(sin (/ phi1 2))
(sin.f64 (/.f64 phi1 #s(literal 2 binary64)))
(- phi1 phi2)
(-.f64 phi1 phi2)
(neg (* R phi1))
(*.f64 R (-.f64 #s(literal 0 binary64) phi1))
(* R phi1)
(*.f64 R phi1)
R
phi1
(* (- R (* (/ 1 phi1) (* R phi2))) (neg phi1))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(- R (* (/ 1 phi1) (* R phi2)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
R
(* (/ 1 phi1) (* R phi2))
(/.f64 (*.f64 R phi2) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
1
#s(literal 1 binary64)
phi1
(* R phi2)
(*.f64 R phi2)
phi2
(neg phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* (* R lambda2) (cos (* 1/2 (+ phi1 phi2))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R lambda2)
(*.f64 R lambda2)
R
lambda2
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(* 1/2 (+ phi1 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
1/2
#s(literal 1/2 binary64)
(+ phi1 phi2)
(+.f64 phi2 phi1)
phi1
phi2
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))) (* (- phi1 phi2) (- phi1 phi2)))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (*.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
R
(sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))) (* (- phi1 phi2) (- phi1 phi2))))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (*.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (*.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))
(+.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (*.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
1/2
#s(literal 1/2 binary64)
phi1
(* (* -1/2 phi2) (sin (* 1/2 phi1)))
(*.f64 (*.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(* -1/2 phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
-1/2
#s(literal -1/2 binary64)
phi2
(sin (* 1/2 phi1))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(- phi1 phi2)
(-.f64 phi1 phi2)

localize545.0ms (3%)

Localize:

Found 18 expressions of interest:

NewMetricScoreProgram
✓accuracy100.0%
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
✓accuracy99.9%
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
✓accuracy99.8%
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
✓accuracy94.1%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 phi1 phi2)))
✓accuracy100.0%
(*.f64 R lambda2)
✓accuracy100.0%
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
✓accuracy99.7%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
✓accuracy77.8%
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
✓accuracy100.0%
(neg.f64 phi1)
✓accuracy100.0%
(-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2)))
✓accuracy91.8%
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))
✓accuracy89.7%
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (neg.f64 phi1))
✓accuracy100.0%
(*.f64 R phi1)
✓accuracy100.0%
(neg.f64 (*.f64 R phi1))
✓accuracy99.8%
(*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
✓accuracy99.8%
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
✓accuracy99.7%
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
✓accuracy99.7%
(*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))
Results
374.0ms172×1valid
67.0ms84×0valid
Compiler

Compiled 346 to 46 computations (86.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 258.0ms
ival-mult: 64.0ms (24.8% of total)
ival-cos: 52.0ms (20.2% of total)
compiled-spec: 37.0ms (14.3% of total)
ival-sin: 29.0ms (11.2% of total)
backward-pass: 26.0ms (10.1% of total)
ival-add: 19.0ms (7.4% of total)
ival-div: 10.0ms (3.9% of total)
ival-sub: 10.0ms (3.9% of total)
ival-sqrt: 7.0ms (2.7% of total)
ival-neg: 3.0ms (1.2% of total)
const: 1.0ms (0.4% of total)

series80.0ms (0.4%)

Counts
23 → 756
Calls
Call 1
Inputs
#<alt (* R (sqrt (+ (* (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2)))))>
#<alt (sqrt (+ (* (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2)))))>
#<alt (- lambda1 lambda2)>
#<alt (* R phi1)>
#<alt (neg (* R phi1))>
#<alt (* (- R (* (/ 1 phi1) (* R phi2))) (neg phi1))>
#<alt (- R (* (/ 1 phi1) (* R phi2)))>
#<alt (* (/ 1 phi1) (* R phi2))>
#<alt (/ 1 phi1)>
#<alt (* (* R lambda2) (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R lambda2)>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (* 1/2 (+ phi1 phi2))>
#<alt (* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))) (* (- phi1 phi2) (- phi1 phi2)))))>
#<alt (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))) (* (- phi1 phi2) (- phi1 phi2))))>
#<alt (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))>
#<alt (* (sin (/ phi2 2)) (sin (/ phi1 2)))>
#<alt (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2))))>
#<alt (* (cos (/ phi2 2)) (cos (/ phi1 2)))>
#<alt (neg phi1)>
#<alt (* (* -1/2 phi2) (sin (* 1/2 phi1)))>
#<alt (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))>
Outputs
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))))>
#<alt (* -1 (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))))>
#<alt (* -1 (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* -1 (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda1 (- (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda1 (- (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (- (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (- (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (/ (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi2))) phi2))) phi2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (/ (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi1))) phi1))) phi1)))))>
#<alt (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))>
#<alt (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))>
#<alt (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* -1 lambda2)>
#<alt (- lambda1 lambda2)>
#<alt (- lambda1 lambda2)>
#<alt (- lambda1 lambda2)>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))>
#<alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))>
#<alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))>
#<alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))>
#<alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))>
#<alt lambda1>
#<alt (+ lambda1 (* -1 lambda2))>
#<alt (+ lambda1 (* -1 lambda2))>
#<alt (+ lambda1 (* -1 lambda2))>
#<alt (* -1 lambda2)>
#<alt (* lambda2 (- (/ lambda1 lambda2) 1))>
#<alt (* lambda2 (- (/ lambda1 lambda2) 1))>
#<alt (* lambda2 (- (/ lambda1 lambda2) 1))>
#<alt (* -1 lambda2)>
#<alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))>
#<alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))>
#<alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* R phi1)>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* R phi2)>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (* -1 (* R phi1))>
#<alt (* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))>
#<alt (* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))>
#<alt (* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* R phi1))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* R phi2)>
#<alt (* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))>
#<alt (* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))>
#<alt (* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* -1 (/ (* R phi2) phi1))>
#<alt (/ (- (* R phi1) (* R phi2)) phi1)>
#<alt (/ (- (* R phi1) (* R phi2)) phi1)>
#<alt (/ (- (* R phi1) (* R phi2)) phi1)>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (* -1 (/ (* R phi2) phi1))>
#<alt (* phi2 (- (/ R phi2) (/ R phi1)))>
#<alt (* phi2 (- (/ R phi2) (/ R phi1)))>
#<alt (* phi2 (- (/ R phi2) (/ R phi1)))>
#<alt (* -1 (/ (* R phi2) phi1))>
#<alt (* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))>
#<alt (* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))>
#<alt (* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (/ 1 phi1)>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi2))))>
#<alt (+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))>
#<alt (+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))>
#<alt (+ (* 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)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))>
#<alt (+ (* 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)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (cos (* 1/2 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (* 1/2 phi2)>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (* 1/2 phi1)>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* 1/2 phi1)>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* 1/2 phi1)>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (* 1/2 phi2)>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* 1/2 phi2)>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))))>
#<alt (* -1 (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda1)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda1)) (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda1)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))))>
#<alt (* -1 (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda2)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda2)) (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda2)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))>
#<alt (* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))>
#<alt (+ (* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/48 phi2) (* 1/16 phi2)) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* -1/4 (* (* R (* phi2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) 3))))) (* 1/2 (* (* R (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))))>
#<alt (* (* R phi2) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))>
#<alt (* phi2 (+ (* 1/2 (* (/ (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))>
#<alt (* phi2 (+ (* 1/2 (* (/ (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi2 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (* phi2 (+ (* -1/4 (* (/ (* R (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) (pow phi2 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi2 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))))>
#<alt (* -1 (* (* R phi2) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))>
#<alt (* -1 (* phi2 (+ (* -1/2 (* (/ (* R (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (* -1 (* phi2 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (* R (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) phi2)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (* -1 (* phi2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* R (* (+ (* 2 phi1) (* (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)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) phi2) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (* R (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) phi2)) (* 1/2 (* (* R (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) phi2)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (+ (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (+ (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda1)) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (+ (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (+ (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda2)) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))>
#<alt (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))>
#<alt (+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))>
#<alt (+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/48 phi2) (* 1/16 phi2)) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* -1/4 (* (* phi2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))))>
#<alt (* phi2 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))>
#<alt (* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/2 (* (/ (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))))>
#<alt (* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* 1/2 (* (/ (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi2 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))))>
#<alt (* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* -1/4 (* (/ (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi2 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi2 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))))))>
#<alt (* -1 (* phi2 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))>
#<alt (* -1 (* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* -1/2 (* (/ (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))))>
#<alt (* -1 (* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) phi2)))))>
#<alt (* -1 (* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* (+ (* 2 phi1) (* (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)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) phi2) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 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)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))) phi2)) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* lambda2 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))>
#<alt (- lambda1 lambda2)>
#<alt (- (+ lambda1 (* -1/4 (* phi1 (* phi2 (- lambda1 lambda2))))) lambda2)>
#<alt (- (+ lambda1 (* phi1 (+ (* -1/4 (* phi2 (- lambda1 lambda2))) (* -1/8 (* phi1 (- lambda1 lambda2)))))) lambda2)>
#<alt (- (+ lambda1 (* phi1 (+ (* -1/4 (* phi2 (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (- lambda1 lambda2)) (* 1/96 (* phi1 (* phi2 (- lambda1 lambda2))))))))) lambda2)>
#<alt (* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))>
#<alt (* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))>
#<alt (* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))>
#<alt (* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))>
#<alt (* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))>
#<alt (* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))>
#<alt (* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))>
#<alt (* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))>
#<alt (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)))>
#<alt (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)))>
#<alt (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)))>
#<alt (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))>
#<alt (* -1 (* phi2 (+ (* -1 (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)) (* 1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))))>
#<alt (* -1 (* phi2 (+ (* -1 (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)) (* 1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))))>
#<alt (* -1 (* phi2 (+ (* -1 (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)) (* 1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))))>
#<alt (* 1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* phi2 (+ (* -1/48 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))>
#<alt (* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/3840 (* (pow phi2 2) (sin (* 1/2 phi1))))))))>
#<alt (* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/645120 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/3840 (sin (* 1/2 phi1)))))))))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* 1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* phi1 (+ (* -1/48 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))>
#<alt (* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/3840 (* (pow phi1 2) (sin (* 1/2 phi2))))))))>
#<alt (* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/645120 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/3840 (sin (* 1/2 phi2)))))))))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (cos (* 1/2 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/8 (* (pow phi2 2) (cos (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* (pow phi2 2) (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/384 (* (pow phi2 2) (cos (* 1/2 phi1)))))))>
#<alt (+ (cos (* 1/2 phi1)) (* (pow phi2 2) (+ (* -1/8 (cos (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (cos (* 1/2 phi1)))) (* 1/384 (cos (* 1/2 phi1))))))))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (cos (* 1/2 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/8 (* (pow phi1 2) (cos (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* (pow phi1 2) (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/384 (* (pow phi1 2) (cos (* 1/2 phi2)))))))>
#<alt (+ (cos (* 1/2 phi2)) (* (pow phi1 2) (+ (* -1/8 (cos (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (cos (* 1/2 phi2)))) (* 1/384 (cos (* 1/2 phi2))))))))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/4 (* phi1 phi2))>
#<alt (* phi1 (+ (* -1/4 phi2) (* 1/96 (* (pow phi1 2) phi2))))>
#<alt (* phi1 (+ (* -1/4 phi2) (* (pow phi1 2) (+ (* -1/7680 (* (pow phi1 2) phi2)) (* 1/96 phi2)))))>
#<alt (* phi1 (+ (* -1/4 phi2) (* (pow phi1 2) (+ (* 1/96 phi2) (* (pow phi1 2) (+ (* -1/7680 phi2) (* 1/1290240 (* (pow phi1 2) phi2))))))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt 1>
#<alt (+ 1 (* -1/4 (* phi1 phi2)))>
#<alt (+ 1 (* phi1 (+ (* -1/4 phi2) (* -1/8 phi1))))>
#<alt (+ 1 (* phi1 (+ (* -1/4 phi2) (* phi1 (- (* 1/96 (* phi1 phi2)) 1/8)))))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (/ (cos (* 1/2 phi1)) phi2)))>
#<alt (* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (/ (cos (* 1/2 phi1)) phi2)))>
#<alt (* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (/ (cos (* 1/2 phi1)) phi2)))>
#<alt (* -1/2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1 (* phi2 (+ (* -1 (/ (cos (* 1/2 phi1)) phi2)) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (* -1 (* phi2 (+ (* -1 (/ (cos (* 1/2 phi1)) phi2)) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (* -1 (* phi2 (+ (* -1 (/ (cos (* 1/2 phi1)) phi2)) (* 1/2 (sin (* 1/2 phi1))))))>
Calls

189 calls:

TimeVariablePointExpression
16.0ms
phi2
@inf
(* (/ 1 phi1) (* R phi2))
2.0ms
lambda2
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))) (* (- phi1 phi2) (- phi1 phi2)))))
2.0ms
phi2
@inf
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))) (* (- phi1 phi2) (- phi1 phi2)))))
2.0ms
R
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))) (* (- phi1 phi2) (- phi1 phi2)))))
2.0ms
lambda1
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))) (* (- phi1 phi2) (- phi1 phi2)))))

rewrite269.0ms (1.5%)

Algorithm
1×batch-egg-rewrite
Rules
3206×*-lowering-*.f32
3206×*-lowering-*.f64
1676×/-lowering-/.f32
1676×/-lowering-/.f64
1486×+-lowering-+.f64
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
050245
1175202
2727200
37985200
08058200
Stop Event
1×iter limit
1×node limit
Counts
23 → 488
Calls
Call 1
Inputs
(* R (sqrt (+ (* (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2)))))
(sqrt (+ (* (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2))))) (* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2)))))) (* (- phi1 phi2) (- phi1 phi2))))
(* (- lambda1 lambda2) (- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2)))))
(- lambda1 lambda2)
(* R phi1)
(neg (* R phi1))
(* (- R (* (/ 1 phi1) (* R phi2))) (neg phi1))
(- R (* (/ 1 phi1) (* R phi2)))
(* (/ 1 phi1) (* R phi2))
(/ 1 phi1)
(* (* R lambda2) (cos (* 1/2 (+ phi1 phi2))))
(* R lambda2)
(cos (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))) (* (- phi1 phi2) (- phi1 phi2)))))
(sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))) (* (- phi1 phi2) (- phi1 phi2))))
(* (- lambda1 lambda2) (+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1)))))
(* (sin (/ phi2 2)) (sin (/ phi1 2)))
(- (* (cos (/ phi2 2)) (cos (/ phi1 2))) (* (sin (/ phi2 2)) (sin (/ phi1 2))))
(* (cos (/ phi2 2)) (cos (/ phi1 2)))
(neg phi1)
(* (* -1/2 phi2) (sin (* 1/2 phi1)))
(+ (cos (* 1/2 phi1)) (* (* -1/2 phi2) (sin (* 1/2 phi1))))
Outputs
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (-.f64 phi1 phi2)))
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (-.f64 phi1 phi2)) R)
(exp.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (-.f64 phi1 phi2))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(pow.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(pow.f64 (exp.f64 (log.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #s(literal 1/2 binary64))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (*.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 lambda1 lambda2)))
(+.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(fma.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 lambda1 lambda2) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2))
(+.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))
(+.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1)
(-.f64 lambda1 lambda2)
(-.f64 #s(literal 0 binary64) (-.f64 lambda2 lambda1))
(-.f64 (+.f64 lambda1 #s(literal 0 binary64)) lambda2)
(fma.f64 #s(literal -1 binary64) lambda2 lambda1)
(/.f64 R (/.f64 #s(literal 1 binary64) phi1))
(/.f64 (*.f64 R phi1) #s(literal 1 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) #s(literal -1 binary64))
(*.f64 R phi1)
(*.f64 phi1 R)
(*.f64 (*.f64 R phi1) #s(literal 1 binary64))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) #s(literal 0 binary64))
(+.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))
(+.f64 (*.f64 R #s(literal 0 binary64)) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))
(+.f64 (*.f64 #s(literal 0 binary64) R) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(neg.f64 (*.f64 R phi1))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) #s(literal 1 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 #s(literal 1 binary64) phi1))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) R)) (/.f64 #s(literal 1 binary64) phi1))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) R) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) phi1))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) R) (-.f64 #s(literal 0 binary64) phi1)) #s(literal -1 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 0 binary64) R)) #s(literal -1 binary64))
(*.f64 R (-.f64 #s(literal 0 binary64) phi1))
(*.f64 phi1 (-.f64 #s(literal 0 binary64) R))
(*.f64 phi1 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) R)))
(*.f64 (*.f64 R phi1) #s(literal -1 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) #s(literal 1 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) R)
(*.f64 #s(literal -1 binary64) (*.f64 R phi1))
(*.f64 (-.f64 #s(literal 0 binary64) R) phi1)
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)))
(+.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(+.f64 (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))
(+.f64 (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) #s(literal 0 binary64)) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(+.f64 (*.f64 #s(literal 0 binary64) (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 R phi1) (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1))))
(fma.f64 R (-.f64 #s(literal 0 binary64) phi1) (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)))
(fma.f64 phi1 (-.f64 #s(literal 0 binary64) R) (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)))
(fma.f64 (*.f64 R phi1) #s(literal -1 binary64) (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)))
(fma.f64 (-.f64 #s(literal 0 binary64) phi1) R (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)))
(fma.f64 #s(literal -1 binary64) (*.f64 R phi1) (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)))
(fma.f64 (-.f64 #s(literal 0 binary64) R) phi1 (*.f64 phi1 (/.f64 (*.f64 R phi2) phi1)))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))) #s(literal 1 binary64))
(/.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (-.f64 #s(literal 0 binary64) R)) (/.f64 #s(literal 1 binary64) phi1))
(/.f64 (*.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (-.f64 #s(literal 0 binary64) R)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) phi1))
(/.f64 (*.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (-.f64 #s(literal 0 binary64) R)) (-.f64 #s(literal 0 binary64) phi1)) #s(literal -1 binary64))
(*.f64 phi1 (+.f64 (/.f64 (*.f64 R phi2) phi1) (-.f64 #s(literal 0 binary64) R)))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) #s(literal -1 binary64))
(*.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (-.f64 #s(literal 0 binary64) R)) phi1)
(+.f64 R (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1))
(+.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1) R)
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
(-.f64 #s(literal 0 binary64) (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(-.f64 (+.f64 R #s(literal 0 binary64)) (/.f64 (*.f64 R phi2) phi1))
(fma.f64 (/.f64 #s(literal 1 binary64) phi1) (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) R)
(fma.f64 (*.f64 R phi2) (/.f64 #s(literal -1 binary64) phi1) R)
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) R)
(fma.f64 (/.f64 #s(literal -1 binary64) phi1) (*.f64 R phi2) R)
(fma.f64 (/.f64 R phi1) (-.f64 #s(literal 0 binary64) phi2) R)
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (/.f64 #s(literal 1 binary64) phi1) R)
(fma.f64 (-.f64 #s(literal 0 binary64) (/.f64 R phi1)) phi2 R)
(fma.f64 (/.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)) R R)
(*.f64 (+.f64 (/.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)) #s(literal 1 binary64)) R)
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1))
(/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R phi2)))
(/.f64 (*.f64 R phi2) phi1)
(/.f64 (/.f64 (*.f64 R phi2) phi1) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 phi1 (*.f64 R phi2))))
(/.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1) #s(literal -1 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2))) phi1)
(/.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) #s(literal -1 binary64)) phi1)
(pow.f64 (/.f64 phi1 (*.f64 R phi2)) #s(literal -1 binary64))
(*.f64 R (/.f64 phi2 phi1))
(*.f64 phi2 (/.f64 R phi1))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi2) phi1))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (/.f64 (*.f64 R phi2) #s(literal 1 binary64)))
(*.f64 (*.f64 R phi2) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (/.f64 (*.f64 R phi2) phi1) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1) #s(literal -1 binary64))
(*.f64 (/.f64 #s(literal -1 binary64) phi1) (/.f64 (*.f64 R phi2) #s(literal -1 binary64)))
(*.f64 (/.f64 R phi1) phi2)
(*.f64 (/.f64 R phi1) (/.f64 phi2 #s(literal 1 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (/.f64 #s(literal -1 binary64) phi1))
(*.f64 (/.f64 phi2 phi1) R)
(*.f64 (/.f64 phi2 phi1) (/.f64 R #s(literal 1 binary64)))
(*.f64 (/.f64 (*.f64 R phi2) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) phi1))
(*.f64 (/.f64 (*.f64 R phi2) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) phi1))
(exp.f64 (*.f64 #s(literal -1 binary64) (log.f64 phi1)))
(-.f64 #s(literal 0 binary64) (/.f64 #s(literal -1 binary64) phi1))
(neg.f64 (/.f64 #s(literal -1 binary64) phi1))
(/.f64 #s(literal 1 binary64) phi1)
(/.f64 (/.f64 #s(literal 1 binary64) phi1) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 (/.f64 #s(literal -1 binary64) phi1) #s(literal -1 binary64))
(pow.f64 phi1 #s(literal -1 binary64))
(pow.f64 (exp.f64 (log.f64 phi1)) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) phi1))
(*.f64 (/.f64 #s(literal -1 binary64) phi1) #s(literal -1 binary64))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2)) (*.f64 (*.f64 R lambda2) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2)) (*.f64 (*.f64 R lambda2) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2)) (*.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda2)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2)) (*.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 R lambda2)))
(+.f64 (*.f64 (*.f64 R lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 R lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (*.f64 R lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 R lambda2) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 (*.f64 R lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda2) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (*.f64 R lambda2) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2)))
(+.f64 (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda2)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda2)))
(+.f64 (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda2)) (*.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 R lambda2)))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda2)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda2)))
(+.f64 (*.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2)))
(/.f64 (*.f64 (*.f64 R lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 R lambda2) (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 R lambda2)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 R lambda2)) #s(literal 4 binary64))
(*.f64 R (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 lambda2 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 R lambda2))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
(*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)
(*.f64 R lambda2)
(*.f64 lambda2 R)
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(+.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 4 binary64)) (/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 4 binary64)))
(-.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(-.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 0 binary64)) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(fma.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))))
(/.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal -2 binary64))
(/.f64 (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64)))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 #s(literal -2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64)))
(/.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal -4 binary64))
(*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 1/4 binary64))
(+.f64 (/.f64 phi2 #s(literal 2 binary64)) (/.f64 phi1 #s(literal 2 binary64)))
(+.f64 (/.f64 phi1 #s(literal 2 binary64)) (/.f64 phi2 #s(literal 2 binary64)))
(-.f64 (/.f64 phi2 #s(literal 2 binary64)) (/.f64 phi1 #s(literal -2 binary64)))
(-.f64 (/.f64 phi1 #s(literal 2 binary64)) (/.f64 phi2 #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 (/.f64 phi1 #s(literal -2 binary64)) (/.f64 phi2 #s(literal 2 binary64))))
(-.f64 (+.f64 (/.f64 phi2 #s(literal 2 binary64)) #s(literal 0 binary64)) (/.f64 phi1 #s(literal -2 binary64)))
(fma.f64 phi2 #s(literal 1/2 binary64) (/.f64 phi1 #s(literal 2 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (/.f64 phi2 #s(literal 2 binary64)))
(fma.f64 #s(literal 1 binary64) (/.f64 phi2 #s(literal 2 binary64)) (/.f64 phi1 #s(literal 2 binary64)))
(fma.f64 #s(literal 1 binary64) (/.f64 phi1 #s(literal 2 binary64)) (/.f64 phi2 #s(literal 2 binary64)))
(fma.f64 (-.f64 #s(literal 0 binary64) phi1) #s(literal -1/2 binary64) (/.f64 phi2 #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 phi1 #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 phi2 #s(literal 2 binary64)))
(fma.f64 #s(literal -1 binary64) (/.f64 phi1 #s(literal -2 binary64)) (/.f64 phi2 #s(literal 2 binary64)))
(fma.f64 (-.f64 #s(literal 0 binary64) phi2) #s(literal -1/2 binary64) (/.f64 phi1 #s(literal 2 binary64)))
(neg.f64 (+.f64 (/.f64 phi2 #s(literal -2 binary64)) (/.f64 phi1 #s(literal -2 binary64))))
(neg.f64 (+.f64 (/.f64 phi1 #s(literal -2 binary64)) (/.f64 phi2 #s(literal -2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 4 binary64) phi1) (+.f64 #s(literal 2 binary64) (/.f64 phi2 (/.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 4 binary64) phi2) (+.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (/.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2) (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -4 binary64) phi2) (+.f64 #s(literal -2 binary64) (*.f64 phi1 (/.f64 #s(literal -2 binary64) phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -4 binary64) (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 phi1 #s(literal -2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -4 binary64) phi1) (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (*.f64 phi2 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi1))))
(/.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi2 (/.f64 phi1 #s(literal 2 binary64)))) (/.f64 #s(literal 4 binary64) phi1))
(/.f64 (+.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (/.f64 phi2 phi1))) (/.f64 #s(literal 4 binary64) phi2))
(/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2))
(/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (*.f64 (/.f64 #s(literal -2 binary64) phi1) (/.f64 #s(literal -2 binary64) phi2)))
(/.f64 (+.f64 #s(literal -2 binary64) (*.f64 phi1 (/.f64 #s(literal -2 binary64) phi2))) (/.f64 #s(literal -4 binary64) phi2))
(/.f64 (+.f64 #s(literal -2 binary64) (*.f64 phi1 (/.f64 #s(literal -2 binary64) phi2))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -2 binary64) phi2)))
(/.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 phi1 #s(literal -2 binary64))) #s(literal -4 binary64))
(/.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)) (/.f64 #s(literal -4 binary64) phi1))
(/.f64 (+.f64 (*.f64 phi2 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi1)) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 phi2 (/.f64 #s(literal -2 binary64) phi1)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -2 binary64) phi1)))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) phi1)) (*.f64 (/.f64 #s(literal 2 binary64) phi2) #s(literal -1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) phi2) (/.f64 #s(literal -2 binary64) phi1)))
(/.f64 (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal -2 binary64) phi2) phi1)) (*.f64 (/.f64 #s(literal -2 binary64) phi2) #s(literal 2 binary64)))
(/.f64 (+.f64 (/.f64 #s(literal -2 binary64) phi1) (*.f64 (/.f64 #s(literal -2 binary64) phi2) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal -2 binary64) phi2) (/.f64 #s(literal 2 binary64) phi1)))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal -2 binary64) phi2) (-.f64 #s(literal 0 binary64) phi1))) (*.f64 (/.f64 #s(literal -2 binary64) phi2) #s(literal -2 binary64)))
(/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (*.f64 (/.f64 #s(literal -2 binary64) phi2) #s(literal -1 binary64))) (*.f64 (/.f64 #s(literal -2 binary64) phi2) (/.f64 #s(literal -2 binary64) phi1)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi2) (/.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) phi1)))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) phi2)) (*.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal -1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal -2 binary64) phi2)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (/.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) phi2)))
(/.f64 (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal -2 binary64) phi1) phi2)) (*.f64 (/.f64 #s(literal -2 binary64) phi1) #s(literal 2 binary64)))
(/.f64 (+.f64 (/.f64 #s(literal -2 binary64) phi2) (*.f64 (/.f64 #s(literal -2 binary64) phi1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal -2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal -2 binary64) phi1) (-.f64 #s(literal 0 binary64) phi2))) (*.f64 (/.f64 #s(literal -2 binary64) phi1) #s(literal -2 binary64)))
(/.f64 (neg.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi2 (/.f64 phi1 #s(literal 2 binary64))))) (neg.f64 (/.f64 #s(literal 4 binary64) phi1)))
(/.f64 (neg.f64 (+.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (/.f64 phi2 phi1)))) (neg.f64 (/.f64 #s(literal 4 binary64) phi2)))
(/.f64 (neg.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2))) (neg.f64 (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2)))
(/.f64 (neg.f64 (+.f64 #s(literal -2 binary64) (*.f64 phi1 (/.f64 #s(literal -2 binary64) phi2)))) (neg.f64 (/.f64 #s(literal -4 binary64) phi2)))
(/.f64 (neg.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 phi1 #s(literal -2 binary64)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1))) (neg.f64 (/.f64 #s(literal -4 binary64) phi1)))
(/.f64 (neg.f64 (+.f64 (*.f64 phi2 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi1))) #s(literal -4 binary64))
(/.f64 (/.f64 (+.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (/.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 #s(literal 2 binary64) phi2))
(/.f64 (/.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi2 (/.f64 phi1 #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))
(/.f64 (/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi1)) (/.f64 #s(literal 2 binary64) phi2))
(/.f64 (/.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)) (/.f64 #s(literal 2 binary64) phi1)) #s(literal -2 binary64))
(/.f64 (/.f64 (+.f64 #s(literal -2 binary64) (*.f64 phi1 (/.f64 #s(literal -2 binary64) phi2))) #s(literal -2 binary64)) (/.f64 #s(literal 2 binary64) phi2))
(/.f64 (/.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi2 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal 2 binary64) phi1))
(/.f64 (/.f64 (+.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (/.f64 phi2 phi1))) (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64))
(/.f64 (/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi1))
(/.f64 (/.f64 (+.f64 #s(literal -2 binary64) (*.f64 phi1 (/.f64 #s(literal -2 binary64) phi2))) (/.f64 #s(literal 2 binary64) phi2)) #s(literal -2 binary64))
(/.f64 (/.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)) #s(literal -2 binary64)) (/.f64 #s(literal 2 binary64) phi1))
(*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (+.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 0 binary64) phi1)))
(*.f64 #s(literal -1/2 binary64) (+.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 0 binary64) phi2)))
(*.f64 (+.f64 #s(literal 2 binary64) (/.f64 phi2 (/.f64 phi1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) phi1)))
(*.f64 (+.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (/.f64 phi2 phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) phi2)))
(*.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2)))
(*.f64 (+.f64 #s(literal -2 binary64) (*.f64 phi1 (/.f64 #s(literal -2 binary64) phi2))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -4 binary64) phi2)))
(*.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/4 binary64))
(*.f64 (+.f64 #s(literal -2 binary64) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -4 binary64) phi1)))
(*.f64 (+.f64 (*.f64 phi2 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/4 binary64))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64))))) (-.f64 phi1 phi2)))
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64))))) (-.f64 phi1 phi2)) R)
(exp.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64))))) #s(literal 2 binary64))))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64))))) (-.f64 phi1 phi2))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64))))))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64))))) #s(literal 2 binary64))))
(pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64))))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(pow.f64 (exp.f64 (log.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64))))) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 phi2 #s(literal -2 binary64)))))
(+.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 phi2 #s(literal -2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(+.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (/.f64 phi2 #s(literal -2 binary64)) lambda1)) (+.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (/.f64 phi2 #s(literal -2 binary64)) (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 lambda1 (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 phi2 #s(literal -2 binary64))))))
(+.f64 (*.f64 (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64)))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64))))))
(+.f64 (*.f64 lambda1 (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64))))) (*.f64 (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64)))) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (/.f64 phi2 #s(literal -2 binary64)) lambda1))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (/.f64 phi2 #s(literal -2 binary64)) (-.f64 #s(literal 0 binary64) lambda2))))
(+.f64 (+.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 phi2 #s(literal -2 binary64)))) (*.f64 lambda1 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 lambda1 (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64)))) (*.f64 (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64)))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 phi2 #s(literal -2 binary64)))))
(fma.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 phi2 #s(literal -2 binary64)))))
(fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 phi2 #s(literal -2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 phi2 (-.f64 lambda1 lambda2))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (/.f64 phi2 #s(literal -2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64))) (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64)))) lambda1 (*.f64 (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64)))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)) (*.f64 phi2 (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (/.f64 phi2 #s(literal -2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64)))))
(*.f64 (+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64)))) (-.f64 lambda1 lambda2))
(+.f64 (/.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)) (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))
(-.f64 (/.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)))
(/.f64 (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal -1 binary64))
(*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))
(*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 1/2 binary64))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 phi2 phi1) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (sin.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 phi2 phi1) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 phi2 phi1) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (sin.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 phi2 phi1) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal -1/2 binary64))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(+.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 4 binary64)) (/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 4 binary64)))
(-.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(-.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 0 binary64)) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(fma.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))))
(/.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal -2 binary64))
(/.f64 (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64)))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 #s(literal -2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64)))
(/.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) #s(literal -4 binary64))
(*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (-.f64 (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 1/4 binary64))
(neg.f64 (/.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)))
(/.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal -1 binary64))
(*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 phi2 phi1) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (cos.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 phi2 phi1) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (cos.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -1/2 binary64))
(+.f64 (-.f64 #s(literal 0 binary64) phi1) #s(literal 0 binary64))
(+.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) phi1)
(neg.f64 phi1)
(/.f64 phi1 #s(literal -1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) phi1))
(/.f64 (-.f64 #s(literal 0 binary64) phi1) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 phi1 #s(literal -1 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) phi1)
(*.f64 phi2 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64)))
(*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (/.f64 phi2 #s(literal -2 binary64)) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))
(*.f64 (*.f64 phi2 (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) phi2)
(+.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64))))
(+.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
(fma.f64 phi2 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
(fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 phi2 #s(literal -2 binary64)) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
(fma.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
(fma.f64 (/.f64 phi2 #s(literal -2 binary64)) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
(fma.f64 (*.f64 phi2 (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
(fma.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) phi2 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))

simplify681.0ms (3.8%)

Algorithm
1×egg-herbie
Rules
7780×*-lowering-*.f32
7780×*-lowering-*.f64
2934×+-lowering-+.f64
2934×+-lowering-+.f32
1782×*-commutative
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
0157522588
1564120894
0828620894
Stop Event
1×iter limit
1×node limit
Counts
756 → 756
Calls
Call 1
Inputs
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))))
(* -1 (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))))
(* -1 (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* -1 (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda1 (- (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda1 (- (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda2 (- (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda2 (- (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (/ (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi2))) phi2))) phi2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (/ (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi1))) phi1))) phi1)))))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* -1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
lambda1
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(* -1 lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(* -1 lambda2)
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* R phi1)
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R phi1))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(* R phi2)
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(* -1 (* R phi1))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* R phi2)
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(* -1 (/ (* R phi2) phi1))
(/ (- (* R phi1) (* R phi2)) phi1)
(/ (- (* R phi1) (* R phi2)) phi1)
(/ (- (* R phi1) (* R phi2)) phi1)
R
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
R
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
R
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(* -1 (/ (* R phi2) phi1))
(* phi2 (- (/ R phi2) (/ R phi1)))
(* phi2 (- (/ R phi2) (/ R phi1)))
(* phi2 (- (/ R phi2) (/ R phi1)))
(* -1 (/ (* R phi2) phi1))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(/ 1 phi1)
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 phi2))))
(+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))
(+ (* 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)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))
(+ (* 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)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(* 1/2 phi2)
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(* 1/2 phi1)
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* 1/2 phi1)
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* 1/2 phi1)
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(* 1/2 phi2)
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* 1/2 phi2)
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))))
(* -1 (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda1)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda1)) (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda1)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))))
(* -1 (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda2)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda2)) (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda2)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))
(+ (* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))
(+ (* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/48 phi2) (* 1/16 phi2)) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* -1/4 (* (* R (* phi2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) 3))))) (* 1/2 (* (* R (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* (* R phi2) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))
(* phi2 (+ (* 1/2 (* (/ (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))
(* phi2 (+ (* 1/2 (* (/ (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi2 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))
(* phi2 (+ (* -1/4 (* (/ (* R (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) (pow phi2 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi2 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))))
(* -1 (* (* R phi2) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))
(* -1 (* phi2 (+ (* -1/2 (* (/ (* R (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))
(* -1 (* phi2 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (* R (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) phi2)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))
(* -1 (* phi2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* R (* (+ (* 2 phi1) (* (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)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) phi2) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (* R (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) phi2)) (* 1/2 (* (* R (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) phi2)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))
(sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (+ (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (+ (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda1)) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (+ (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (+ (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda2)) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))
(+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))
(+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))
(+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/48 phi2) (* 1/16 phi2)) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* -1/4 (* (* phi2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))))
(* phi2 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))
(* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/2 (* (/ (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))))
(* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* 1/2 (* (/ (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi2 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))))
(* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* -1/4 (* (/ (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi2 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi2 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))))))
(* -1 (* phi2 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))
(* -1 (* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* -1/2 (* (/ (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))))
(* -1 (* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) phi2)))))
(* -1 (* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* (+ (* 2 phi1) (* (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)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) phi2) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 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)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))) phi2)) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))
(* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* lambda2 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)))
(* lambda2 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)))
(* lambda2 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(- lambda1 lambda2)
(- (+ lambda1 (* -1/4 (* phi1 (* phi2 (- lambda1 lambda2))))) lambda2)
(- (+ lambda1 (* phi1 (+ (* -1/4 (* phi2 (- lambda1 lambda2))) (* -1/8 (* phi1 (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* phi1 (+ (* -1/4 (* phi2 (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (- lambda1 lambda2)) (* 1/96 (* phi1 (* phi2 (- lambda1 lambda2))))))))) lambda2)
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))
(* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)))
(* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)))
(* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)))
(* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))
(* -1 (* phi2 (+ (* -1 (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)) (* 1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))))
(* -1 (* phi2 (+ (* -1 (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)) (* 1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))))
(* -1 (* phi2 (+ (* -1 (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)) (* 1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))))
(* 1/2 (* phi2 (sin (* 1/2 phi1))))
(* phi2 (+ (* -1/48 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))
(* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/3840 (* (pow phi2 2) (sin (* 1/2 phi1))))))))
(* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/645120 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/3840 (sin (* 1/2 phi1)))))))))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* 1/2 (* phi1 (sin (* 1/2 phi2))))
(* phi1 (+ (* -1/48 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/3840 (* (pow phi1 2) (sin (* 1/2 phi2))))))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/645120 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/3840 (sin (* 1/2 phi2)))))))))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/8 (* (pow phi2 2) (cos (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* (pow phi2 2) (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/384 (* (pow phi2 2) (cos (* 1/2 phi1)))))))
(+ (cos (* 1/2 phi1)) (* (pow phi2 2) (+ (* -1/8 (cos (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (cos (* 1/2 phi1)))) (* 1/384 (cos (* 1/2 phi1))))))))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/8 (* (pow phi1 2) (cos (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* (pow phi1 2) (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/384 (* (pow phi1 2) (cos (* 1/2 phi2)))))))
(+ (cos (* 1/2 phi2)) (* (pow phi1 2) (+ (* -1/8 (cos (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (cos (* 1/2 phi2)))) (* 1/384 (cos (* 1/2 phi2))))))))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/4 (* phi1 phi2))
(* phi1 (+ (* -1/4 phi2) (* 1/96 (* (pow phi1 2) phi2))))
(* phi1 (+ (* -1/4 phi2) (* (pow phi1 2) (+ (* -1/7680 (* (pow phi1 2) phi2)) (* 1/96 phi2)))))
(* phi1 (+ (* -1/4 phi2) (* (pow phi1 2) (+ (* 1/96 phi2) (* (pow phi1 2) (+ (* -1/7680 phi2) (* 1/1290240 (* (pow phi1 2) phi2))))))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
1
(+ 1 (* -1/4 (* phi1 phi2)))
(+ 1 (* phi1 (+ (* -1/4 phi2) (* -1/8 phi1))))
(+ 1 (* phi1 (+ (* -1/4 phi2) (* phi1 (- (* 1/96 (* phi1 phi2)) 1/8)))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (/ (cos (* 1/2 phi1)) phi2)))
(* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (/ (cos (* 1/2 phi1)) phi2)))
(* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (/ (cos (* 1/2 phi1)) phi2)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(* -1 (* phi2 (+ (* -1 (/ (cos (* 1/2 phi1)) phi2)) (* 1/2 (sin (* 1/2 phi1))))))
(* -1 (* phi2 (+ (* -1 (/ (cos (* 1/2 phi1)) phi2)) (* 1/2 (sin (* 1/2 phi1))))))
(* -1 (* phi2 (+ (* -1 (/ (cos (* 1/2 phi1)) phi2)) (* 1/2 (sin (* 1/2 phi1))))))
Outputs
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 (*.f64 R lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) #s(literal 3 binary64))))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 (*.f64 R lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 lambda1 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 lambda1 (-.f64 (+.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 lambda1)))) (/.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))))
(*.f64 lambda1 (-.f64 (+.f64 (+.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 lambda1)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 lambda1 lambda1))))) (/.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)))
(* -1 (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 (neg.f64 (*.f64 R lambda1)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (/.f64 (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda1)) lambda1)) (neg.f64 lambda1))
(* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (*.f64 R lambda1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (*.f64 R lambda1) (*.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 R (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (*.f64 R lambda1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 lambda2 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 lambda2 (-.f64 (+.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))))
(*.f64 lambda2 (-.f64 (+.f64 (+.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 lambda2 lambda2))))) (/.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)))
(* -1 (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (/.f64 (*.f64 (*.f64 R lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda2)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))
(+ (* 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)))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi2) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))
(+ (* 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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (*.f64 (*.f64 R phi2) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))) (*.f64 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (*.f64 (*.f64 R phi2) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))))))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (*.f64 phi2 phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 2)))))))
(*.f64 phi2 (+.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 R (*.f64 (*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (*.f64 phi2 (*.f64 phi2 phi2))) (/.f64 (*.f64 (*.f64 R (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (/.f64 (*.f64 R phi1) phi2))))
(* -1 (* R phi2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 R (/.f64 (+.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) phi2)) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 R (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 R (*.f64 (*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) phi2))) phi2)) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi1) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 (*.f64 R phi1) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 2))))))
(*.f64 phi1 (+.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (*.f64 phi1 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 R (*.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (/.f64 (*.f64 R (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) phi1) (/.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) phi1))))))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 R (/.f64 (+.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) phi1)) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 R (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 R (*.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) phi1))) phi1)) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))) (*.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 lambda1 (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))) (*.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))) (*.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) #s(literal 3 binary64))))))))) (*.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (-.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 lambda1)))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (-.f64 (+.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 lambda1)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 lambda1 lambda1))))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (+.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(-.f64 #s(literal 0 binary64) (*.f64 lambda1 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda1)) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda1 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))) (*.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) #s(literal 3 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda1 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda2 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda2 (-.f64 (-.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda2 (-.f64 (-.f64 (+.f64 (+.f64 (*.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (/.f64 lambda1 lambda2) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 lambda2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (+.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (-.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 lambda1 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda2)) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) (*.f64 phi2 (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 phi2 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi2 2)))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (/.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) phi2)) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))
(* -1 phi2)
(-.f64 #s(literal 0 binary64) phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) phi2))) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi1 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) phi2)) phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (/ (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi2))) phi2))) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) phi2))) phi2)) phi2)))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 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)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (*.f64 phi1 (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi1 2))))))
(*.f64 phi1 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) phi1) (/.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) phi1)) phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (/ (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi1))) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) phi1))) phi1)) phi1)))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(-.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(-.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(-.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 lambda1))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(-.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(-.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(-.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(+ (* 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)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1/8 binary64)) (*.f64 (*.f64 phi2 #s(literal 1/48 binary64)) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 phi1 #s(literal -1/8 binary64)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* 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)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 lambda1 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 lambda1 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 lambda1 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(-.f64 #s(literal 0 binary64) (*.f64 lambda1 (+.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64))))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(-.f64 #s(literal 0 binary64) (*.f64 lambda1 (+.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64))))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(-.f64 #s(literal 0 binary64) (*.f64 lambda1 (+.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64))))
lambda1
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 lambda2 (+.f64 (/.f64 lambda1 lambda2) #s(literal -1 binary64)))
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 lambda2 (+.f64 (/.f64 lambda1 lambda2) #s(literal -1 binary64)))
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 lambda2 (+.f64 (/.f64 lambda1 lambda2) #s(literal -1 binary64)))
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* R phi1)
(*.f64 R phi1)
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(* R phi2)
(*.f64 R phi2)
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* R phi2)
(*.f64 R phi2)
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (/.f64 (*.f64 R phi1) phi2) R))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (/.f64 (*.f64 R phi1) phi2) R))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (/.f64 (*.f64 R phi1) phi2) R))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (- 1 (/ phi2 phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* R (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* -1 (/ (* R phi2) phi1))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1)
(/ (- (* R phi1) (* R phi2)) phi1)
(/.f64 (*.f64 R (-.f64 phi1 phi2)) phi1)
(/ (- (* R phi1) (* R phi2)) phi1)
(/.f64 (*.f64 R (-.f64 phi1 phi2)) phi1)
(/ (- (* R phi1) (* R phi2)) phi1)
(/.f64 (*.f64 R (-.f64 phi1 phi2)) phi1)
R
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
R
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
R
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(+ R (* -1 (/ (* R phi2) phi1)))
(*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* -1 (/ (* R phi2) phi1))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1)
(* phi2 (- (/ R phi2) (/ R phi1)))
(*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1)))
(* phi2 (- (/ R phi2) (/ R phi1)))
(*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1)))
(* phi2 (- (/ R phi2) (/ R phi1)))
(*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1)))
(* -1 (/ (* R phi2) phi1))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1)
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 R phi2)) (/.f64 R phi1)))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 R phi2)) (/.f64 R phi1)))
(* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 R phi2)) (/.f64 R phi1)))
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 phi2))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda2 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda2 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(+ (* 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)))))))))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 #s(literal -1/8 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)))))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/8 binary64)) (*.f64 (*.f64 phi2 #s(literal 1/48 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)))))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1))))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1))))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1))))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi2) phi1) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi2) phi1) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi2) phi1) #s(literal -1/2 binary64)))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) phi1) phi2)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) phi1) phi2)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) phi1) phi2)))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi2) #s(literal -1/2 binary64)))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi2) #s(literal -1/2 binary64)))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi2) #s(literal -1/2 binary64)))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 lambda1 (-.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 (*.f64 lambda1 (*.f64 (*.f64 lambda2 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) #s(literal 3 binary64)))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))
(* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(*.f64 (*.f64 R lambda1) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(*.f64 lambda1 (-.f64 (*.f64 R (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 (*.f64 R lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(*.f64 lambda1 (-.f64 (+.f64 (*.f64 R (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 lambda1 lambda1) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (/.f64 (*.f64 (*.f64 R lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))))
(*.f64 lambda1 (-.f64 (+.f64 (+.f64 (*.f64 R (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 lambda1 lambda1) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (/.f64 (*.f64 (*.f64 R lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1)))
(* -1 (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(*.f64 (neg.f64 (*.f64 R lambda1)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(*.f64 (-.f64 (*.f64 R (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 (*.f64 R lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda1)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(*.f64 (-.f64 (*.f64 R (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda1)) (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda1)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(*.f64 (-.f64 (*.f64 R (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (/.f64 (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda1) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) lambda1)) lambda1)) (neg.f64 lambda1))
(* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) #s(literal 3 binary64)))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))
(* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(*.f64 (*.f64 R lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(*.f64 lambda2 (-.f64 (*.f64 R (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 (*.f64 R lambda1) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(*.f64 lambda2 (-.f64 (+.f64 (*.f64 R (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 lambda2 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (/.f64 (*.f64 (*.f64 R lambda1) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))))
(*.f64 lambda2 (-.f64 (+.f64 (+.f64 (*.f64 R (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 lambda2 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (*.f64 (*.f64 R lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (/.f64 (*.f64 (*.f64 R lambda1) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2)))
(* -1 (* R (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(*.f64 (-.f64 (*.f64 R (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 (*.f64 R lambda1) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda2)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(*.f64 (-.f64 (*.f64 R (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda1) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda2)) (* R (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda2)) (* R (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))
(*.f64 (-.f64 (*.f64 R (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda1) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (/.f64 (*.f64 (*.f64 R lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) lambda2)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))
(+.f64 (*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(+ (* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))
(+.f64 (*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2)) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (*.f64 (*.f64 R phi1) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (*.f64 phi2 phi2) #s(literal 1/16 binary64)) #s(literal -1/4 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (*.f64 R (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))
(+ (* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/48 phi2) (* 1/16 phi2)) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))))
(+.f64 (*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2)) (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (*.f64 R (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 #s(literal 1/12 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (*.f64 phi2 phi2) #s(literal 1/16 binary64)) #s(literal -1/4 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (*.f64 phi2 phi2) #s(literal 1/16 binary64)) #s(literal -1/4 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(*.f64 phi1 (+.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) R) phi1) (*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (*.f64 R phi2) (*.f64 phi1 phi1)) (*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (*.f64 (/.f64 R phi1) (*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (+.f64 (*.f64 R phi2) (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (*.f64 R (*.f64 phi2 (*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) phi1)) phi1)))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))
(+ (* 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)))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi2) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (*.f64 (*.f64 R phi2) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) (*.f64 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))))))
(+ (* 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/4 (* (* R (* phi2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) 3))))) (* 1/2 (* (* R (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 R (*.f64 (*.f64 (*.f64 phi2 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal 3 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))))))))
(* (* R phi2) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))
(*.f64 (*.f64 R phi2) (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))
(* phi2 (+ (* 1/2 (* (/ (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))
(*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) phi2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (*.f64 R (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(* phi2 (+ (* 1/2 (* (/ (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi2 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))
(*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) phi2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (+.f64 (*.f64 R (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 R (+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 phi2 phi2))))))
(* phi2 (+ (* -1/4 (* (/ (* R (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) (pow phi2 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi2 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))))
(*.f64 phi2 (+.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (*.f64 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 3 binary64))))) (*.f64 phi2 (*.f64 phi2 phi2)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) phi2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))) (+.f64 (*.f64 R (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 R (+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 phi2 phi2))))))
(* -1 (* (* R phi2) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))
(*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (-.f64 #s(literal 0 binary64) (*.f64 R phi2)))
(* -1 (* phi2 (+ (* -1/2 (* (/ (* R (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (*.f64 R (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (/.f64 (*.f64 R (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 2 binary64) phi1))) phi2)))))
(* -1 (* phi2 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (* R (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) phi2)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (*.f64 R (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))) phi2)) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) phi2)))
(* -1 (* phi2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* R (* (+ (* 2 phi1) (* (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)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) phi2) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (* R (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) phi2)) (* 1/2 (* (* R (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))) phi2)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (*.f64 R (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (/.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 (*.f64 R (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 2 binary64) phi1))) (+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 3 binary64))))) phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))) phi2)) phi2)))
(sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (*.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 lambda1 (-.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))))) (*.f64 lambda2 (*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))) (*.f64 (*.f64 lambda1 (*.f64 (*.f64 lambda2 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) #s(literal 3 binary64)))))))) (*.f64 lambda2 (*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (+ (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda1 lambda1)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (/.f64 (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (+ (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))))))
(*.f64 lambda1 (+.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 lambda2 (*.f64 lambda1 (*.f64 lambda1 lambda1)))) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda1 lambda1)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (+.f64 (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda1)) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (-.f64 (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 lambda2 lambda1) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) lambda1)) lambda1))) (neg.f64 lambda1))
(sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 lambda2 (-.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 lambda1 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (- (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) #s(literal 3 binary64)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (*.f64 lambda1 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))
(* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (+ (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))))))
(*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (/.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (+ (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))))))))
(*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 lambda1 (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 lambda2)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (+.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))) lambda2)) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (-.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 lambda1 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) lambda2)) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))
(hypot.f64 (-.f64 lambda1 lambda2) phi2)
(+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))
(+.f64 (hypot.f64 (-.f64 lambda1 lambda2) phi2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))))
(+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))
(+.f64 (hypot.f64 (-.f64 lambda1 lambda2) phi2) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (*.f64 phi2 phi2) #s(literal 1/16 binary64)) #s(literal -1/4 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))))) (*.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))))
(+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/48 phi2) (* 1/16 phi2)) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi2 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1/2 (* phi2 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))))
(+.f64 (hypot.f64 (-.f64 lambda1 lambda2) phi2) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (*.f64 phi2 phi2) #s(literal 1/16 binary64)) #s(literal -1/4 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))) (*.f64 phi1 (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 #s(literal 1/12 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (*.f64 phi2 phi2) #s(literal 1/16 binary64)) #s(literal -1/4 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(*.f64 phi1 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (*.f64 (*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)) (/.f64 #s(literal 1/2 binary64) phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)) (/.f64 phi2 (*.f64 phi1 phi1))) (*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) (/.f64 phi2 phi1))))
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))) phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) phi1)))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* -1/4 (* (* phi2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (*.f64 phi2 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal 3 binary64)))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))))))
(* phi2 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))
(*.f64 phi2 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))
(* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/2 (* (/ (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))))
(*.f64 phi2 (+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* 1/2 (* (/ (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi2 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))))
(*.f64 phi2 (+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (/.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2)) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 phi2 phi2))))))
(* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* -1/4 (* (/ (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi2 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi2 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))))))))
(*.f64 phi2 (+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (/.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2)) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 phi2 phi2)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 3 binary64))))) (*.f64 phi2 (*.f64 phi2 phi2)))))))
(* -1 (* phi2 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))
(* -1 (* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* -1/2 (* (/ (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 2 binary64) phi1)) phi2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(* -1 (* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))))) phi2) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 2 binary64) phi1))))) phi2)))
(* -1 (* phi2 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* (+ (* 2 phi1) (* (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)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))) phi2) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 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)) (* 1/4 (/ (pow (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))))))) phi2)) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 2 binary64) phi1)))) (/.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 2 binary64) phi1)) (+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 3 binary64))))) phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (+.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))) phi2)) phi2)))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) lambda2))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(-.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(-.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(-.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (neg.f64 lambda1))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(-.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(-.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(-.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) lambda2))
(* lambda2 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* lambda2 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* lambda2 (+ (* -1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))) lambda2)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* -1/4 (* phi1 (* phi2 (- lambda1 lambda2))))) lambda2)
(+.f64 lambda1 (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) phi2))) lambda2))
(- (+ lambda1 (* phi1 (+ (* -1/4 (* phi2 (- lambda1 lambda2))) (* -1/8 (* phi1 (- lambda1 lambda2)))))) lambda2)
(+.f64 lambda1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) phi2)) (*.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) phi1)))) lambda2))
(- (+ lambda1 (* phi1 (+ (* -1/4 (* phi2 (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (- lambda1 lambda2)) (* 1/96 (* phi1 (* phi2 (- lambda1 lambda2))))))))) lambda2)
(+.f64 lambda1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) phi2)) (*.f64 phi1 (+.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64)) (*.f64 (*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) phi2)) #s(literal 1/96 binary64)))))) lambda2))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)))
(*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)))
(*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)))
(*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* phi2 (+ (* -1 (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)) (* 1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* -1 (* phi2 (+ (* -1 (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)) (* 1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* -1 (* phi2 (+ (* -1 (/ (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) phi2)) (* 1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* 1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* phi2 (+ (* -1/48 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))
(*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 phi2 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/3840 (* (pow phi2 2) (sin (* 1/2 phi1))))))))
(*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/48 binary64)) (*.f64 (*.f64 #s(literal 1/3840 binary64) (*.f64 phi2 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(* phi2 (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/645120 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/3840 (sin (* 1/2 phi1)))))))))
(*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/48 binary64)) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (*.f64 #s(literal -1/645120 binary64) (*.f64 phi2 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1/3840 binary64))))))))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* 1/2 (* phi1 (sin (* 1/2 phi2))))
(*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* phi1 (+ (* -1/48 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 phi1 phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/3840 (* (pow phi1 2) (sin (* 1/2 phi2))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/48 binary64)) (*.f64 (*.f64 #s(literal 1/3840 binary64) (*.f64 phi1 phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/645120 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/3840 (sin (* 1/2 phi2)))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/48 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal -1/645120 binary64) (*.f64 phi1 phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1/3840 binary64))))))))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/8 binary64)) (*.f64 (*.f64 phi2 #s(literal 1/48 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 #s(literal -1/8 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/8 (* (pow phi2 2) (cos (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* (pow phi2 2) (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/384 (* (pow phi2 2) (cos (* 1/2 phi1)))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 phi2 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (cos (* 1/2 phi1)) (* (pow phi2 2) (+ (* -1/8 (cos (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (cos (* 1/2 phi1)))) (* 1/384 (cos (* 1/2 phi1))))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/8 binary64)) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (*.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1/384 binary64)))))))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/8 (* (pow phi1 2) (cos (* 1/2 phi2)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (cos (* 1/2 phi2)) (* (pow phi1 2) (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/384 (* (pow phi1 2) (cos (* 1/2 phi2)))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 phi1 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (cos (* 1/2 phi2)) (* (pow phi1 2) (+ (* -1/8 (cos (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (cos (* 1/2 phi2)))) (* 1/384 (cos (* 1/2 phi2))))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal -1/46080 binary64) (*.f64 phi1 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1/384 binary64)))))))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/4 (* phi1 phi2))
(*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2))
(* phi1 (+ (* -1/4 phi2) (* 1/96 (* (pow phi1 2) phi2))))
(*.f64 phi1 (+.f64 (*.f64 phi2 #s(literal -1/4 binary64)) (*.f64 #s(literal 1/96 binary64) (*.f64 phi2 (*.f64 phi1 phi1)))))
(* phi1 (+ (* -1/4 phi2) (* (pow phi1 2) (+ (* -1/7680 (* (pow phi1 2) phi2)) (* 1/96 phi2)))))
(*.f64 phi1 (+.f64 (*.f64 phi2 #s(literal -1/4 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi2 (*.f64 phi1 phi1)) #s(literal -1/7680 binary64)) (*.f64 phi2 #s(literal 1/96 binary64))))))
(* phi1 (+ (* -1/4 phi2) (* (pow phi1 2) (+ (* 1/96 phi2) (* (pow phi1 2) (+ (* -1/7680 phi2) (* 1/1290240 (* (pow phi1 2) phi2))))))))
(*.f64 phi1 (+.f64 (*.f64 phi2 #s(literal -1/4 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 phi2 #s(literal 1/96 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 phi2 #s(literal -1/7680 binary64)) (*.f64 (*.f64 phi2 (*.f64 phi1 phi1)) #s(literal 1/1290240 binary64))))))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
1
#s(literal 1 binary64)
(+ 1 (* -1/4 (* phi1 phi2)))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)))
(+ 1 (* phi1 (+ (* -1/4 phi2) (* -1/8 phi1))))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (+.f64 (*.f64 phi2 #s(literal -1/4 binary64)) (*.f64 phi1 #s(literal -1/8 binary64)))))
(+ 1 (* phi1 (+ (* -1/4 phi2) (* phi1 (- (* 1/96 (* phi1 phi2)) 1/8)))))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (+.f64 (*.f64 phi2 #s(literal -1/4 binary64)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/96 binary64) phi1) phi2) #s(literal -1/8 binary64))))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (/ (cos (* 1/2 phi1)) phi2)))
(*.f64 phi2 (+.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64))))
(* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (/ (cos (* 1/2 phi1)) phi2)))
(*.f64 phi2 (+.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64))))
(* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (/ (cos (* 1/2 phi1)) phi2)))
(*.f64 phi2 (+.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64))))
(* -1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1 (* phi2 (+ (* -1 (/ (cos (* 1/2 phi1)) phi2)) (* 1/2 (sin (* 1/2 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)))
(* -1 (* phi2 (+ (* -1 (/ (cos (* 1/2 phi1)) phi2)) (* 1/2 (sin (* 1/2 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)))
(* -1 (* phi2 (+ (* -1 (/ (cos (* 1/2 phi1)) phi2)) (* 1/2 (sin (* 1/2 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)))

eval293.0ms (1.6%)

Compiler

Compiled 42238 to 3328 computations (92.1% saved)

prune313.0ms (1.7%)

Pruning

56 alts after pruning (52 fresh and 4 done)

PrunedKeptTotal
New1259151274
Fresh83745
Picked235
Done112
Total1270561326
Accuracy
100.0%
Counts
1326 → 56
Alt Table
Click to see full alt table
StatusAccuracyProgram
55.8%
(/.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (-.f64 #s(literal 0 binary64) R)) (/.f64 #s(literal 1 binary64) phi1))
10.1%
(-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 R lambda2))
57.2%
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
7.5%
(-.f64 #s(literal 0 binary64) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda2)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda2))))
8.6%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R))
16.1%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/384 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))))
5.9%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))))
6.9%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 (/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi1)))))
8.1%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2) (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))))))
1.0%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) phi1)) #s(literal -1 binary64))))))
24.5%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
52.1%
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
2.4%
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
8.2%
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda1)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda1)))
54.9%
(*.f64 (-.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) phi1))
58.3%
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (neg.f64 phi1))
✓55.8%
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (neg.f64 phi1))
58.3%
(*.f64 (-.f64 R (*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (/.f64 #s(literal -1 binary64) phi1)))) (-.f64 #s(literal 0 binary64) phi1))
25.1%
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
55.2%
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))))
57.2%
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (neg.f64 phi1))
23.6%
(*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
11.1%
(*.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
24.3%
(*.f64 (*.f64 R lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
24.3%
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
25.4%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
23.9%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
12.9%
(*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
8.4%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
9.3%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
8.6%
(*.f64 (neg.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) lambda2)
5.6%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
24.4%
(*.f64 (neg.f64 (*.f64 R lambda1)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
25.2%
(*.f64 (neg.f64 (*.f64 R lambda1)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
58.8%
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
54.7%
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
83.4%
(*.f64 R (hypot.f64 (fma.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 lambda1 (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
83.2%
(*.f64 R (hypot.f64 (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 phi2 #s(literal -2 binary64))))) (-.f64 phi1 phi2)))
99.9%
(*.f64 R (hypot.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
88.3%
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) (-.f64 phi1 phi2)))
67.7%
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2))
✓99.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
92.0%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
91.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
79.5%
(*.f64 R (hypot.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 phi1 phi2)))
82.4%
(*.f64 R (hypot.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
20.3%
(*.f64 R (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 phi1 phi2)))
24.5%
(*.f64 R (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
53.3%
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
9.4%
(*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
58.1%
(*.f64 R (sqrt.f64 (+.f64 (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
19.6%
(*.f64 R (sqrt.f64 (*.f64 phi2 phi2)))
✓28.9%
(*.f64 R phi2)
33.0%
(neg.f64 (/.f64 R (/.f64 #s(literal 1 binary64) phi1)))
6.2%
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
✓33.1%
(neg.f64 (*.f64 R phi1))
Compiler

Compiled 2510 to 1078 computations (57.1% saved)

regimes522.0ms (2.9%)

Counts
86 → 1
Calls
Call 1
Inputs
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(neg.f64 (/.f64 R (/.f64 #s(literal 1 binary64) phi1)))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (neg.f64 phi1))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (neg.f64 phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (neg.f64 phi1))
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R phi2)))) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 R lambda2))
(/.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (-.f64 #s(literal 0 binary64) R)) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (/.f64 #s(literal -1 binary64) phi1)))) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/384 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))))
(*.f64 R (sqrt.f64 (*.f64 phi1 phi1)))
(*.f64 R (sqrt.f64 (*.f64 phi2 phi2)))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) (-.f64 phi1 phi2)))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
(*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
(*.f64 R (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (neg.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) lambda2)
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2) (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 (/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi1)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
(*.f64 (neg.f64 (*.f64 R lambda1)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
(*.f64 R (sqrt.f64 (+.f64 (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) phi1)) #s(literal -1 binary64))))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 phi1 phi2)))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(*.f64 R (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 (neg.f64 (*.f64 R lambda1)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(*.f64 R (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2)))
(*.f64 R (hypot.f64 (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 phi2 #s(literal -2 binary64))))) (-.f64 phi1 phi2)))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda1)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda1)))
(-.f64 #s(literal 0 binary64) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda2)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda2))))
(*.f64 R (hypot.f64 (exp.f64 (-.f64 (log.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (log.f64 (/.f64 #s(literal -1 binary64) lambda1)))) (-.f64 phi1 phi2)))
(*.f64 (*.f64 R lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 R (hypot.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal -2 binary64))) (-.f64 lambda1 lambda2)))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (fma.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 lambda1 (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (fma.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
Outputs
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 phi1 phi2)))
Calls

9 calls:

53.0ms
(-.f64 lambda1 lambda2)
45.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)))))
38.0ms
phi2
37.0ms
R
37.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))))
Results
AccuracySegmentsBranch
99.9%1R
99.9%1lambda1
99.9%1lambda2
99.9%1phi1
99.9%1phi2
99.9%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)))))
99.9%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))))
99.9%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)))
99.9%1(-.f64 lambda1 lambda2)
Compiler

Compiled 144 to 79 computations (45.1% saved)

regimes307.0ms (1.7%)

Counts
81 → 1
Calls
Call 1
Inputs
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(neg.f64 (/.f64 R (/.f64 #s(literal 1 binary64) phi1)))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (neg.f64 phi1))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (neg.f64 phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (neg.f64 phi1))
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R phi2)))) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 R lambda2))
(/.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (-.f64 #s(literal 0 binary64) R)) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (/.f64 #s(literal -1 binary64) phi1)))) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/384 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))))
(*.f64 R (sqrt.f64 (*.f64 phi1 phi1)))
(*.f64 R (sqrt.f64 (*.f64 phi2 phi2)))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) (-.f64 phi1 phi2)))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
(*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
(*.f64 R (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (neg.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) lambda2)
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2) (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 (/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi1)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
(*.f64 (neg.f64 (*.f64 R lambda1)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
(*.f64 R (sqrt.f64 (+.f64 (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) phi1)) #s(literal -1 binary64))))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 phi1 phi2)))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(*.f64 R (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 (neg.f64 (*.f64 R lambda1)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(*.f64 R (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2)))
(*.f64 R (hypot.f64 (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 phi2 #s(literal -2 binary64))))) (-.f64 phi1 phi2)))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda1)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda1)))
(-.f64 #s(literal 0 binary64) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda2)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda2))))
(*.f64 R (hypot.f64 (exp.f64 (-.f64 (log.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (log.f64 (/.f64 #s(literal -1 binary64) lambda1)))) (-.f64 phi1 phi2)))
(*.f64 (*.f64 R lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 R (hypot.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
Outputs
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
Calls

9 calls:

51.0ms
lambda1
42.0ms
(-.f64 lambda1 lambda2)
37.0ms
phi1
31.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)))
31.0ms
R
Results
AccuracySegmentsBranch
99.9%1R
99.9%1lambda1
99.9%1lambda2
99.9%1phi1
99.9%1phi2
99.9%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)))))
99.9%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))))
99.9%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)))
99.9%1(-.f64 lambda1 lambda2)
Compiler

Compiled 144 to 79 computations (45.1% saved)

regimes389.0ms (2.2%)

Counts
80 → 1
Calls
Call 1
Inputs
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(neg.f64 (/.f64 R (/.f64 #s(literal 1 binary64) phi1)))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (neg.f64 phi1))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (neg.f64 phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (neg.f64 phi1))
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R phi2)))) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 R lambda2))
(/.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (-.f64 #s(literal 0 binary64) R)) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (/.f64 #s(literal -1 binary64) phi1)))) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/384 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))))
(*.f64 R (sqrt.f64 (*.f64 phi1 phi1)))
(*.f64 R (sqrt.f64 (*.f64 phi2 phi2)))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) (-.f64 phi1 phi2)))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
(*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
(*.f64 R (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (neg.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) lambda2)
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2) (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 (/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi1)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
(*.f64 (neg.f64 (*.f64 R lambda1)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
(*.f64 R (sqrt.f64 (+.f64 (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) phi1)) #s(literal -1 binary64))))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 phi1 phi2)))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(*.f64 R (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 (neg.f64 (*.f64 R lambda1)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(*.f64 R (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2)))
(*.f64 R (hypot.f64 (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 phi2 #s(literal -2 binary64))))) (-.f64 phi1 phi2)))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda1)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda1)))
(-.f64 #s(literal 0 binary64) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))) (*.f64 R lambda2)) (*.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 R lambda2))))
(*.f64 R (hypot.f64 (exp.f64 (-.f64 (log.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (log.f64 (/.f64 #s(literal -1 binary64) lambda1)))) (-.f64 phi1 phi2)))
(*.f64 (*.f64 R lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 R (hypot.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 phi1 phi2)))
Outputs
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
Calls

9 calls:

53.0ms
R
44.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)))
44.0ms
(-.f64 lambda1 lambda2)
42.0ms
phi2
38.0ms
lambda1
Results
AccuracySegmentsBranch
96.2%1R
96.2%1lambda1
96.2%1lambda2
96.2%1phi1
96.2%1phi2
96.2%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.2%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.2%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.2%1(-.f64 lambda1 lambda2)
Compiler

Compiled 144 to 79 computations (45.1% saved)

regimes159.0ms (0.9%)

Counts
55 → 1
Calls
Call 1
Inputs
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(neg.f64 (/.f64 R (/.f64 #s(literal 1 binary64) phi1)))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (neg.f64 phi1))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (neg.f64 phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (neg.f64 phi1))
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R phi2)))) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 R lambda2))
(/.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (-.f64 #s(literal 0 binary64) R)) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (/.f64 #s(literal -1 binary64) phi1)))) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/384 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))))
(*.f64 R (sqrt.f64 (*.f64 phi1 phi1)))
(*.f64 R (sqrt.f64 (*.f64 phi2 phi2)))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) (-.f64 phi1 phi2)))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
(*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
(*.f64 R (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (neg.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) lambda2)
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2) (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 (/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi1)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
Outputs
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
Calls

6 calls:

43.0ms
R
38.0ms
phi2
24.0ms
lambda1
17.0ms
phi1
16.0ms
(-.f64 lambda1 lambda2)
Results
AccuracySegmentsBranch
91.9%1lambda1
91.9%1lambda2
91.9%1phi2
91.9%1R
91.9%1phi1
91.9%1(-.f64 lambda1 lambda2)
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes174.0ms (1%)

Counts
54 → 1
Calls
Call 1
Inputs
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(neg.f64 (/.f64 R (/.f64 #s(literal 1 binary64) phi1)))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (neg.f64 phi1))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (neg.f64 phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (neg.f64 phi1))
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R phi2)))) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 R lambda2))
(/.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (-.f64 #s(literal 0 binary64) R)) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (/.f64 #s(literal -1 binary64) phi1)))) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/384 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))))
(*.f64 R (sqrt.f64 (*.f64 phi1 phi1)))
(*.f64 R (sqrt.f64 (*.f64 phi2 phi2)))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) (-.f64 phi1 phi2)))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
(*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
(*.f64 R (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (neg.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) lambda2)
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 4 binary64) phi1) phi2) (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 (/.f64 (+.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi2)) (/.f64 #s(literal 2 binary64) phi1)))))
Outputs
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) (-.f64 phi1 phi2)))
Calls

6 calls:

49.0ms
(-.f64 lambda1 lambda2)
33.0ms
lambda2
31.0ms
lambda1
24.0ms
phi1
17.0ms
R
Results
AccuracySegmentsBranch
88.3%1lambda1
88.3%1lambda2
88.3%1phi1
88.3%1phi2
88.3%1(-.f64 lambda1 lambda2)
88.3%1R
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes79.0ms (0.4%)

Counts
36 → 2
Calls
Call 1
Inputs
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(neg.f64 (/.f64 R (/.f64 #s(literal 1 binary64) phi1)))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (neg.f64 phi1))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (neg.f64 phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (neg.f64 phi1))
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R phi2)))) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 R lambda2))
(/.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (-.f64 #s(literal 0 binary64) R)) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (/.f64 #s(literal -1 binary64) phi1)))) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/384 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))))
(*.f64 R (sqrt.f64 (*.f64 phi1 phi1)))
(*.f64 R (sqrt.f64 (*.f64 phi2 phi2)))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
Outputs
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2))
Calls

6 calls:

16.0ms
lambda2
12.0ms
phi2
11.0ms
lambda1
11.0ms
(-.f64 lambda1 lambda2)
11.0ms
phi1
Results
AccuracySegmentsBranch
67.7%1R
72.6%3lambda2
76.4%2(-.f64 lambda1 lambda2)
73.4%3lambda1
84.1%2phi1
75.6%3phi2
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes64.0ms (0.4%)

Counts
30 → 2
Calls
Call 1
Inputs
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(neg.f64 (/.f64 R (/.f64 #s(literal 1 binary64) phi1)))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (neg.f64 phi1))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (neg.f64 phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (neg.f64 phi1))
(*.f64 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 R (/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R phi2)))) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 R lambda2))
(/.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (-.f64 #s(literal 0 binary64) R)) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (-.f64 R (*.f64 (-.f64 #s(literal 0 binary64) phi2) (*.f64 R (/.f64 #s(literal -1 binary64) phi1)))) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/384 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))))
(*.f64 R (sqrt.f64 (*.f64 phi1 phi1)))
(*.f64 R (sqrt.f64 (*.f64 phi2 phi2)))
Outputs
(*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (neg.f64 phi1))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
Calls

5 calls:

26.0ms
lambda1
10.0ms
R
9.0ms
lambda2
9.0ms
phi2
9.0ms
phi1
Results
AccuracySegmentsBranch
62.8%2R
61.3%2lambda2
58.8%1lambda1
62.9%2phi2
61.0%2phi1
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes9.0ms (0.1%)

Counts
10 → 2
Calls
Call 1
Inputs
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(neg.f64 (/.f64 R (/.f64 #s(literal 1 binary64) phi1)))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
Outputs
(*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
Calls

2 calls:

4.0ms
phi2
4.0ms
R
Results
AccuracySegmentsBranch
61.0%2R
61.4%2phi2
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes18.0ms (0.1%)

Counts
8 → 2
Calls
Call 1
Inputs
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(neg.f64 (/.f64 R (/.f64 #s(literal 1 binary64) phi1)))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
Outputs
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
Calls

5 calls:

3.0ms
phi2
3.0ms
R
3.0ms
lambda2
3.0ms
lambda1
3.0ms
phi1
Results
AccuracySegmentsBranch
57.2%1lambda1
59.2%2R
57.2%1phi1
57.2%1lambda2
57.2%1phi2
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes28.0ms (0.2%)

Counts
7 → 1
Calls
Call 1
Inputs
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(neg.f64 (/.f64 R (/.f64 #s(literal 1 binary64) phi1)))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 #s(literal 1 binary64) phi1))
Outputs
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
Calls

2 calls:

3.0ms
R
3.0ms
phi2
Results
AccuracySegmentsBranch
57.2%1phi2
57.2%1R
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes13.0ms (0.1%)

Counts
5 → 2
Calls
Call 1
Inputs
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(neg.f64 (/.f64 R (/.f64 #s(literal 1 binary64) phi1)))
Outputs
(neg.f64 (*.f64 R phi1))
(*.f64 R phi2)
Calls

5 calls:

2.0ms
lambda2
2.0ms
lambda1
2.0ms
phi2
2.0ms
R
2.0ms
phi1
Results
AccuracySegmentsBranch
33.1%1R
55.0%2phi1
39.4%4lambda2
37.3%3lambda1
52.0%2phi2
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes7.0ms (0%)

Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts
1 → 1
Calls
Call 1
Inputs
(*.f64 R phi2)
Outputs
(*.f64 R phi2)
Calls

5 calls:

1.0ms
phi2
1.0ms
lambda1
1.0ms
phi1
1.0ms
R
1.0ms
lambda2
Results
AccuracySegmentsBranch
28.9%1R
28.9%1lambda1
28.9%1lambda2
28.9%1phi2
28.9%1phi1
Compiler

Compiled 30 to 25 computations (16.7% saved)

bsearch71.0ms (0.4%)

Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
46.0ms
-5.582128527957775e+80
-1.5088070217817214e+77
Results
33.0ms64×1valid
8.0ms64×0valid
Compiler

Compiled 285 to 200 computations (29.8% saved)

Precisions
Click to see histograms. Total time spent on operations: 33.0ms
backward-pass: 15.0ms (46.1% of total)
ival-mult: 6.0ms (18.4% of total)
ival-cos: 4.0ms (12.3% of total)
ival-add: 2.0ms (6.1% of total)
ival-div: 2.0ms (6.1% of total)
ival-sub: 2.0ms (6.1% of total)
ival-sqrt: 1.0ms (3.1% of total)
const: 0.0ms (0% of total)

bsearch21.0ms (0.1%)

Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
19.0ms
2.432287616804884e+127
5.388777626972285e+127
Results
11.0ms36×1valid
5.0ms44×0valid
Compiler

Compiled 200 to 134 computations (33% saved)

Precisions
Click to see histograms. Total time spent on operations: 11.0ms
ival-mult: 3.0ms (28.2% of total)
ival-cos: 2.0ms (18.8% of total)
ival-add: 1.0ms (9.4% of total)
ival-div: 1.0ms (9.4% of total)
ival-sub: 1.0ms (9.4% of total)
ival-sqrt: 1.0ms (9.4% of total)
backward-pass: 1.0ms (9.4% of total)
const: 0.0ms (0% of total)

bsearch9.0ms (0.1%)

Algorithm
1×binary-search
Stop Event
1×predicate-same
Steps
TimeLeftRight
8.0ms
2.432287616804884e+127
5.388777626972285e+127
Results
5.0ms17×1valid
2.0ms15×0valid
Compiler

Compiled 105 to 68 computations (35.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 5.0ms
ival-sub: 1.0ms (21% of total)
ival-cos: 1.0ms (21% of total)
backward-pass: 1.0ms (21% of total)
ival-mult: 1.0ms (21% of total)
ival-add: 0.0ms (0% of total)
ival-div: 0.0ms (0% of total)
const: 0.0ms (0% of total)
ival-sqrt: 0.0ms (0% of total)

bsearch30.0ms (0.2%)

Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
28.0ms
253647973674976000.0
51432998768747905000.0
Results
16.0ms85×0valid
8.0ms27×1valid
Compiler

Compiled 241 to 164 computations (32% saved)

Precisions
Click to see histograms. Total time spent on operations: 12.0ms
ival-mult: 4.0ms (34.1% of total)
ival-sub: 2.0ms (17.1% of total)
ival-cos: 2.0ms (17.1% of total)
ival-add: 1.0ms (8.5% of total)
ival-div: 1.0ms (8.5% of total)
ival-sqrt: 1.0ms (8.5% of total)
backward-pass: 1.0ms (8.5% of total)
const: 0.0ms (0% of total)

bsearch52.0ms (0.3%)

Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
31.0ms
-1073126683053342.3
-54441.49739137194
Results
18.0ms136×0valid
7.0ms24×1valid
Compiler

Compiled 235 to 174 computations (26% saved)

Precisions
Click to see histograms. Total time spent on operations: 17.0ms
ival-mult: 5.0ms (29.6% of total)
ival-cos: 4.0ms (23.7% of total)
ival-add: 2.0ms (11.8% of total)
ival-sub: 2.0ms (11.8% of total)
ival-div: 1.0ms (5.9% of total)
ival-sqrt: 1.0ms (5.9% of total)
backward-pass: 1.0ms (5.9% of total)
const: 0.0ms (0% of total)

simplify46.0ms (0.3%)

Algorithm
1×egg-herbie
Rules
424×distribute-lft-neg-in_binary64
244×neg-mul-1_binary64
224×neg-sub0_binary64
168×sub-neg_binary64
150×distribute-rgt-neg-in_binary64
Iterations

Useful iterations: 3 (0.0ms)

IterNodesCost
080204
1144204
2210204
3252202
4306202
5373202
6478202
7670202
8871202
91057202
101189202
111261202
121279202
Stop Event
1×saturated
Calls
Call 1
Inputs
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) (-.f64 phi1 phi2)))
(if (<=.f64 phi1 #s(literal -33000000000000001720105994967815485098510742249440792184428852818574678324936704 binary64)) (*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) (*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2)))
(if (<=.f64 phi2 #s(literal 26000000000000001954536659829473424314257155673162613550555636661301914056302795321278068628541708921134914831010165684493615104 binary64)) (*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (neg.f64 phi1)) (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(if (<=.f64 phi2 #s(literal 30000000000000002255234607495546258824142871930572246404487273070732977757272456139936233032932741062847978651165575789800325120 binary64)) (*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64)))) (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(if (<=.f64 R #s(literal 40000000000000000000 binary64)) (-.f64 (*.f64 R phi2) (*.f64 R phi1)) (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(if (<=.f64 phi1 #s(literal -7900000000000 binary64)) (neg.f64 (*.f64 R phi1)) (*.f64 R phi2))
(*.f64 R phi2)
Outputs
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) (-.f64 phi1 phi2)))
(if (<=.f64 phi1 #s(literal -33000000000000001720105994967815485098510742249440792184428852818574678324936704 binary64)) (*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) (*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2)))
(if (<=.f64 phi1 #s(literal -33000000000000001720105994967815485098510742249440792184428852818574678324936704 binary64)) (*.f64 R (*.f64 phi1 (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64)))) (*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi2)))
(if (<=.f64 phi2 #s(literal 26000000000000001954536659829473424314257155673162613550555636661301914056302795321278068628541708921134914831010165684493615104 binary64)) (*.f64 (-.f64 R (*.f64 (/.f64 R phi1) phi2)) (neg.f64 phi1)) (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(if (<=.f64 phi2 #s(literal 26000000000000001954536659829473424314257155673162613550555636661301914056302795321278068628541708921134914831010165684493615104 binary64)) (*.f64 phi1 (-.f64 (*.f64 phi2 (/.f64 R phi1)) R)) (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(if (<=.f64 phi2 #s(literal 30000000000000002255234607495546258824142871930572246404487273070732977757272456139936233032932741062847978651165575789800325120 binary64)) (*.f64 phi1 (*.f64 R (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64)))) (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(if (<=.f64 R #s(literal 40000000000000000000 binary64)) (-.f64 (*.f64 R phi2) (*.f64 R phi1)) (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(if (<=.f64 phi1 #s(literal -7900000000000 binary64)) (neg.f64 (*.f64 R phi1)) (*.f64 R phi2))
(if (<=.f64 phi1 #s(literal -7900000000000 binary64)) (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) (*.f64 R phi2))
(*.f64 R phi2)

soundness3.0s (16.9%)

Rules
7780×*-lowering-*.f32
7780×*-lowering-*.f64
6920×*-lowering-*.f32
6920×*-lowering-*.f64
6372×*-lowering-*.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
050245
1175202
2727200
37985200
08058200
093913918
1331112328
0810212328
0157522588
1564120894
0828620894
017106
146106
2124106
3476106
42618106
08929106
01716
13316
27116
327016
4129016
5427016
0811016
051325
1163322
2620201
34919201
08100201
090015458
1321212836
0832712836
039193
1129128
2639126
37279126
08214126
Stop Event
1×fuel
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
Compiler

Compiled 691 to 412 computations (40.4% saved)

preprocess130.0ms (0.7%)

Remove

(sort phi1 phi2)

(sort lambda1 lambda2)

(negabs R)

Compiler

Compiled 1332 to 694 computations (47.9% saved)

end0.0ms (0%)

Profiling

Loading profile data...