Equirectangular approximation to distance on a great circle

Time bar (total: 36.1s)

analyze1.6s (4.5%)

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: 755.0ms
ival-mult: 348.0ms (46.1% of total)
ival-add: 95.0ms (12.6% of total)
ival-sub: 90.0ms (11.9% of total)
ival-sqrt: 74.0ms (9.8% of total)
ival-cos: 73.0ms (9.7% of total)
ival-div: 66.0ms (8.7% of total)
const: 8.0ms (1.1% of total)
backward-pass: 2.0ms (0.3% of total)

sample4.6s (12.7%)

Results
2.2s6182×0valid
1.5s2074×1valid
Precisions
Click to see histograms. Total time spent on operations: 2.7s
ival-mult: 950.0ms (35.5% of total)
ival-cos: 418.0ms (15.6% of total)
ival-add: 375.0ms (14% of total)
ival-sub: 311.0ms (11.6% of total)
ival-div: 257.0ms (9.6% of total)
ival-sqrt: 217.0ms (8.1% of total)
backward-pass: 122.0ms (4.6% of total)
const: 22.0ms (0.8% of total)
Bogosity

preprocess587.0ms (1.6%)

Algorithm
2×egg-herbie
Rules
2168×+-lowering-+.f64
2168×+-lowering-+.f32
1824×unsub-neg
1560×*-lowering-*.f32
1560×*-lowering-*.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0150349
1390347
21038343
35060341
01716
13416
28316
331716
4152216
5514516
0813816
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 (- phi2 lambda2) (* (- lambda1 phi1) (cos (/ (+ lambda2 phi2) 2)))))
(* 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)

explain713.0ms (2%)

FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
1800-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))))
73113(2.5567553785064066e-52 -1.3652479164151432e+117 1.6168727934440705e-124 2.615949931588725e-25 3.663674392953254e+162)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
375.0ms350×1valid
67.0ms162×0valid
Compiler

Compiled 359 to 53 computations (85.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 210.0ms
ival-mult: 69.0ms (32.9% of total)
ival-cos: 37.0ms (17.7% of total)
ival-sub: 25.0ms (11.9% of total)
backward-pass: 24.0ms (11.5% of total)
ival-add: 20.0ms (9.5% of total)
ival-sqrt: 15.0ms (7.2% of total)
ival-div: 14.0ms (6.7% of total)
const: 7.0ms (3.3% of total)

eval1.0ms (0%)

Compiler

Compiled 21 to 14 computations (33.3% saved)

prune2.0ms (0%)

Alt Table
Click to see full alt table
StatusAccuracyProgram
▶97.6%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
Compiler

Compiled 21 to 14 computations (33.3% saved)

simplify372.0ms (1%)

Algorithm
1×egg-herbie
Localize:

Found 4 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)))
Rules
2168×+-lowering-+.f64
2168×+-lowering-+.f32
1824×unsub-neg
1560×*-lowering-*.f32
1560×*-lowering-*.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01766
13466
28366
331766
4152266
5514566
0813866
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)
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)))
(*.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)

localize249.0ms (0.7%)

Localize:

Found 4 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.8%
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
✓accuracy76.9%
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
Results
171.0ms177×1valid
30.0ms79×0valid
Compiler

Compiled 72 to 15 computations (79.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 133.0ms
compiled-spec: 34.0ms (25.6% of total)
ival-mult: 31.0ms (23.3% of total)
ival-cos: 17.0ms (12.8% of total)
backward-pass: 13.0ms (9.8% of total)
ival-sub: 11.0ms (8.3% of total)
ival-add: 10.0ms (7.5% of total)
ival-sqrt: 8.0ms (6% of total)
ival-div: 7.0ms (5.3% of total)
const: 1.0ms (0.8% of total)

series120.0ms (0.3%)

Counts
5 → 204
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)))>
#<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 (* -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

51 calls:

TimeVariablePointExpression
13.0ms
phi1
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
9.0ms
R
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
9.0ms
phi2
@-inf
(sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))
8.0ms
lambda2
@-inf
(* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))
7.0ms
lambda1
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))

rewrite711.0ms (2%)

Algorithm
1×batch-egg-rewrite
Rules
4008×*-lowering-*.f32
4008×*-lowering-*.f64
2684×/-lowering-/.f32
2684×/-lowering-/.f64
2520×+-lowering-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01749
18849
276849
0843349
Stop Event
1×iter limit
1×node limit
Counts
5 → 105
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))
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 (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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(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 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))))))) (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(/.f64 (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))))))))
(/.f64 (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 0 binary64) (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 6 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 #s(literal 0 binary64) (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.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 (+.f64 phi1 phi2) #s(literal 1 binary64))))))))))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(/.f64 (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))))))
(/.f64 (neg.f64 (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.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 (+.f64 phi1 phi2) #s(literal 1 binary64))))))))))))
(/.f64 (neg.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(pow.f64 (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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (*.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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/4 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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #s(literal 1/2 binary64))
(*.f64 (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))))))) #s(literal 1/2 binary64)))
(*.f64 (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.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 (+.f64 phi1 phi2) #s(literal 1 binary64))))))))))))
(*.f64 (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.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 (+.f64 phi1 phi2) #s(literal 1 binary64))))))))))))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (/.f64 #s(literal 1 binary64) (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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(*.f64 (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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) (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 (+.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)))
(+.f64 (*.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)))
(+.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda1))
(+.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (*.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)))))
(exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 1 binary64)))
(fma.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (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)))
(/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 lambda2) (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 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 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 lambda1 lambda2))
(/.f64 (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))))) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)))) (-.f64 #s(literal 0 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda1) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda1) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda1)) (-.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.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))) lambda1) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))))))
(/.f64 (+.f64 (pow.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 lambda1 (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 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) 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 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda1) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda1)) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (*.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))) lambda1) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2))))
(/.f64 (-.f64 (*.f64 (*.f64 lambda1 (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 #s(literal 0 binary64) lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) 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 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))
(pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 1 binary64))
(*.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 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(*.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(*.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) (pow.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(+.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))
(+.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1)
(+.f64 (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (neg.f64 (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))))
(+.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (neg.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda1 lambda2))))
(-.f64 lambda1 lambda2)
(-.f64 #s(literal 0 binary64) (-.f64 lambda2 lambda1))
(-.f64 (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)))
(-.f64 (+.f64 lambda1 #s(literal 0 binary64)) lambda2)
(fma.f64 #s(literal -1 binary64) lambda2 lambda1)
(neg.f64 (/.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))))
(neg.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (-.f64 #s(literal 0 binary64) (+.f64 lambda1 lambda2))))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (neg.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1)))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (-.f64 #s(literal 0 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (*.f64 (*.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 lambda1 lambda2) (*.f64 lambda2 lambda2))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))))) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)))) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 lambda1 lambda2))))
(/.f64 (+.f64 (*.f64 lambda2 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2))) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (+.f64 (*.f64 lambda2 lambda2) (-.f64 (*.f64 lambda1 lambda1) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (+.f64 (*.f64 (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))) (+.f64 (*.f64 (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))) (*.f64 (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 (*.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda1 lambda2))) (+.f64 (*.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)) (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda1 lambda2))) (*.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda1 lambda2))))))
(/.f64 (-.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) (-.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))) (*.f64 (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))) (+.f64 (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda1 lambda2))) (*.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)) (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)))) (+.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda1 lambda2))))
(pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1)))))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 lambda1 lambda2))))
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal -2 binary64)))

simplify929.0ms (2.6%)

Algorithm
1×egg-herbie
Rules
7318×*-lowering-*.f32
7318×*-lowering-*.f64
3936×+-lowering-+.f64
3936×+-lowering-+.f32
1824×fma-lowering-fma.f32
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
07456936
126156244
084816244
Stop Event
1×iter limit
1×node limit
Counts
204 → 204
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)))))
(* -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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda1))) (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 R (*.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 (-.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 lambda1 R)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(+.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 #s(literal 1/2 binary64) (*.f64 (*.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 (*.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)))))))) 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 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
(* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2)) 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2)) lambda1)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) R))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (/.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda2 R)) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) R)) (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2)) lambda1))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)))
(* -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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2)) 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 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) R))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2))) 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 lambda1 (*.f64 (-.f64 (*.f64 R (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))) (*.f64 R lambda2)) (/.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)) #s(literal -1 binary64)))
(* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda1))) (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 R (*.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 (-.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 lambda2 R)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(+.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 #s(literal 1/2 binary64) (*.f64 (*.f64 R (+.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (*.f64 (-.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))))) 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)))))))) 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 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2))
(* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) R))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(*.f64 lambda2 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (/.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda1 R)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) R)) (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2))))
(* -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 (* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) 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 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) R))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))) 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) (/.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 (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 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 R phi1)) #s(literal 1/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 (*.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 #s(literal 1/2 binary64) (*.f64 (*.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 (-.f64 lambda1 lambda2) (*.f64 (-.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 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))) phi1)))
(+ (* 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 (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 R (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 1/2 binary64))) (*.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) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/6 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.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 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (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 phi1)) (*.f64 R (+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.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 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (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)))))))) phi1)))))
(* 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 (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 R #s(literal 1/2 binary64))) (*.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 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (/.f64 (*.f64 phi2 (*.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 phi1 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 phi1 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 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1) #s(literal -1/2 binary64))))) 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 (*.f64 phi2 (*.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)))) 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 (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 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 1/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 #s(literal 1/2 binary64) (*.f64 (*.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 lambda1 lambda2) (*.f64 (-.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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))) phi2)))
(+ (* 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 (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 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/6 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (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 lambda1 lambda2) (*.f64 (-.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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (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)))))))))) phi2)))))
(* 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 R (-.f64 (/.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 R #s(literal 1/2 binary64))) (*.f64 phi2 phi2)) (/.f64 (*.f64 R phi1) 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 R (-.f64 (*.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)))))) (/.f64 (*.f64 R phi1) 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 (*.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 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 (*.f64 phi1 (*.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)))) 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda1)) (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 (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))))))))) (*.f64 lambda1 (*.f64 (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 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))))))) #s(literal 1/2 binary64)))))))
(* 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 (-.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)) (/.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 lambda1 lambda1)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(*.f64 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)) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) lambda2)) (*.f64 lambda1 (*.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))))))))
(* -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 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))) 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda1)) (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 (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))))))))) (*.f64 lambda2 (*.f64 (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 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (*.f64 (-.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))))) lambda1)) #s(literal 1/2 binary64)))))))
(* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) lambda1)) (*.f64 lambda2 (*.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)))))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 lambda2 (neg.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))))
(* -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) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) 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 (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 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 1/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 (*.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 #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) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (+.f64 (*.f64 phi1 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.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 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) phi1)))
(+ (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 (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 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 1/2 binary64))) (*.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) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (+.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.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 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/6 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.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 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (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
(* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (/.f64 (-.f64 lambda1 lambda2) phi1) (/.f64 (-.f64 lambda1 lambda2) phi1)) #s(literal 1/2 binary64)))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(*.f64 phi1 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 phi2 (*.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 phi1 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 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1) #s(literal -1/2 binary64)))) 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 (*.f64 phi2 (*.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)))) 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 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal 1/2 binary64) (*.f64 (*.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 lambda1 lambda2) (*.f64 (-.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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) phi2)))
(+ (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 (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 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 1/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 lambda1 lambda2) (*.f64 (-.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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/6 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (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 phi2 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) #s(literal -1 binary64)))
(* -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 (*.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 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 (*.f64 phi1 (*.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)))) 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 lambda2 (neg.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))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 lambda2 (neg.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))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 lambda2 (neg.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))))
(* (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 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal -1/2 binary64) phi1)))
(+ (* 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal -1/8 binary64) phi1)))))
(+ (* 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 #s(literal 1/48 binary64))))))))
(* (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 phi2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal -1/8 binary64) phi2)))))
(+ (* 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64))) (*.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) 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 (- 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 #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 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 #s(literal -1/2 binary64))))
(+ (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 #s(literal -1/8 binary64) phi1)) (*.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 #s(literal 1/48 binary64))))) (*.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 #s(literal -1/2 binary64))))
(+ (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal -1/8 binary64) phi2)) (*.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 #s(literal 1/48 binary64))))) (*.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)))

eval128.0ms (0.4%)

Compiler

Compiled 12108 to 1238 computations (89.8% saved)

prune168.0ms (0.5%)

Pruning

25 alts after pruning (25 fresh and 0 done)

PrunedKeptTotal
New28425309
Fresh000
Picked101
Done000
Total28525310
Accuracy
98.0%
Counts
310 → 25
Alt Table
Click to see full alt table
StatusAccuracyProgram
22.3%
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)))
55.5%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
27.9%
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
36.4%
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2)) lambda1)) (neg.f64 lambda1))
21.9%
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
15.3%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
22.6%
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2))
▶12.5%
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
55.9%
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
73.8%
(*.f64 R (hypot.f64 (/.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
▶97.5%
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
85.0%
(*.f64 R (hypot.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal -1/2 binary64) phi1))) (-.f64 phi1 phi2)))
75.7%
(*.f64 R (hypot.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal -1/8 binary64) phi2))))) (-.f64 phi1 phi2)))
▶85.0%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 phi1 phi2)))
82.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 #s(literal -1/2 binary64))))) (-.f64 phi1 phi2)))
75.7%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal -1/8 binary64) phi2)) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 phi1 phi2)))
74.2%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 #s(literal 1/48 binary64))))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 phi1 phi2)))
92.4%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 phi1 phi2)))
▶92.1%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
38.7%
(*.f64 R (hypot.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 1 binary64))) (-.f64 phi1 phi2)))
53.3%
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
15.3%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
22.3%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
52.6%
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
▶32.0%
(*.f64 R phi2)
Compiler

Compiled 1128 to 730 computations (35.3% saved)

simplify520.0ms (1.4%)

Algorithm
1×egg-herbie
Localize:

Found 17 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(-.f64 lambda1 lambda2)
✓cost-diff0
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 #s(literal -1/2 binary64)))))
✓cost-diff0
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 phi1 phi2))
✓cost-diff0
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 phi1 phi2)))
✓cost-diff0
(-.f64 lambda1 lambda2)
✓cost-diff0
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
✓cost-diff0
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2))
✓cost-diff0
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
✓cost-diff0
(+.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
✓cost-diff0
(*.f64 R phi2)
✓cost-diff0
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
✓cost-diff128
(/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
✓cost-diff128
(hypot.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2))
✓cost-diff128
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
Rules
3310×*-lowering-*.f32
3310×*-lowering-*.f64
3206×+-lowering-+.f64
3206×+-lowering-+.f32
2036×sum4-define
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
044273
1106266
2307266
31489266
08724266
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(* R (sqrt (+ (* (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2))) (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
R
(sqrt (+ (* (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2))) (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))
(/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2)))
(cos (/ (+ phi1 phi2) 2))
(/ (+ phi1 phi2) 2)
(+ phi1 phi2)
phi1
phi2
2
(/ 1 (- lambda1 lambda2))
1
(- lambda1 lambda2)
lambda1
lambda2
(- phi1 phi2)
(* R phi2)
R
phi2
(* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1))
(cos (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
1/2
(+ phi1 phi2)
phi1
phi2
(* R lambda1)
R
lambda1
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))) (* (- phi1 phi2) (- phi1 phi2)))))
R
(sqrt (+ (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))) (* (- phi1 phi2) (- phi1 phi2))))
(* (- lambda1 lambda2) (cos (* 1/2 phi1)))
(- lambda1 lambda2)
lambda1
lambda2
(cos (* 1/2 phi1))
(* 1/2 phi1)
1/2
phi1
(- phi1 phi2)
phi2
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2)))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2))))) (* (- phi1 phi2) (- phi1 phi2)))))
R
(sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2)))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2))))) (* (- phi1 phi2) (- phi1 phi2))))
(* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2))))
(- lambda1 lambda2)
lambda1
lambda2
(+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2)))
(cos (* 1/2 phi2))
(* 1/2 phi2)
1/2
phi2
(* (sin (* 1/2 phi2)) (* phi1 -1/2))
(sin (* 1/2 phi2))
(* phi1 -1/2)
phi1
-1/2
(- phi1 phi2)
Outputs
(* R (sqrt (+ (* (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2))) (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(*.f64 R (hypot.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
R
(sqrt (+ (* (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2))) (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))
(hypot.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2))
(/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2)))
(*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 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)
(/ 1 (- lambda1 lambda2))
(/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
1
#s(literal 1 binary64)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(- phi1 phi2)
(-.f64 phi1 phi2)
(* R phi2)
(*.f64 R phi2)
R
phi2
(* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1))
(*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 R lambda1))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* 1/2 (+ phi1 phi2))
(*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))
1/2
#s(literal 1/2 binary64)
(+ phi1 phi2)
(+.f64 phi1 phi2)
phi1
phi2
(* R lambda1)
(*.f64 R lambda1)
R
lambda1
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))) (* (- phi1 phi2) (- phi1 phi2)))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
R
(sqrt (+ (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))) (* (- phi1 phi2) (- phi1 phi2))))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(* (- lambda1 lambda2) (cos (* 1/2 phi1)))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
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
(- phi1 phi2)
(-.f64 phi1 phi2)
phi2
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2)))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2))))) (* (- phi1 phi2) (- phi1 phi2)))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))))
R
(sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2)))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2))))) (* (- phi1 phi2) (- phi1 phi2))))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))))
(* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2))))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2)))
(+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #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 phi2)) (* phi1 -1/2))
(*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))
(sin (* 1/2 phi2))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(* phi1 -1/2)
(*.f64 phi1 #s(literal -1/2 binary64))
phi1
-1/2
#s(literal -1/2 binary64)
(- phi1 phi2)
(-.f64 phi1 phi2)

localize975.0ms (2.7%)

Localize:

Found 17 expressions of interest:

NewMetricScoreProgram
✓accuracy100.0%
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 #s(literal -1/2 binary64))))
✓accuracy99.8%
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 #s(literal -1/2 binary64)))))
✓accuracy99.8%
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 #s(literal -1/2 binary64)))
✓accuracy96.6%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 phi1 phi2)))
✓accuracy100.0%
(*.f64 #s(literal 1/2 binary64) phi1)
✓accuracy100.0%
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
✓accuracy100.0%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
✓accuracy99.8%
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
✓accuracy100.0%
(*.f64 R lambda1)
✓accuracy100.0%
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
✓accuracy99.7%
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
✓accuracy76.9%
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
✓accuracy100.0%
(*.f64 R phi2)
✓accuracy100.0%
(/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
✓accuracy99.9%
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
✓accuracy99.6%
(/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
✓accuracy76.9%
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
Results
650.0ms179×1valid
109.0ms77×0valid
Compiler

Compiled 283 to 38 computations (86.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 540.0ms
ival-mult: 144.0ms (26.6% of total)
compiled-spec: 123.0ms (22.8% of total)
ival-cos: 107.0ms (19.8% of total)
backward-pass: 41.0ms (7.6% of total)
ival-sqrt: 37.0ms (6.8% of total)
ival-add: 25.0ms (4.6% of total)
ival-div: 22.0ms (4.1% of total)
ival-sin: 22.0ms (4.1% of total)
ival-sub: 17.0ms (3.1% of total)
const: 3.0ms (0.6% of total)

series310.0ms (0.9%)

Counts
22 → 768
Calls
Call 1
Inputs
#<alt (* R (sqrt (+ (* (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2))) (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))>
#<alt (sqrt (+ (* (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2))) (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))>
#<alt (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2)))>
#<alt (cos (/ (+ phi1 phi2) 2))>
#<alt (* R phi2)>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (* 1/2 (+ phi1 phi2))>
#<alt (+ phi1 phi2)>
#<alt (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))) (* (- phi1 phi2) (- phi1 phi2)))))>
#<alt (sqrt (+ (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))) (* (- phi1 phi2) (- phi1 phi2))))>
#<alt (* (- lambda1 lambda2) (cos (* 1/2 phi1)))>
#<alt (- lambda1 lambda2)>
#<alt (* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2)))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2))))) (* (- phi1 phi2) (- phi1 phi2)))))>
#<alt (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2)))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2))))) (* (- phi1 phi2) (- phi1 phi2))))>
#<alt (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2))))>
#<alt (/ 1 (- lambda1 lambda2))>
#<alt (* R lambda1)>
#<alt (cos (* 1/2 phi1))>
#<alt (* 1/2 phi1)>
#<alt (* (sin (* 1/2 phi2)) (* phi1 -1/2))>
#<alt (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/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 (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 (* 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 (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 (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 (* (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 (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))>
#<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 (* 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 (* 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 (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 (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 phi2>
#<alt (+ phi1 phi2)>
#<alt (+ phi1 phi2)>
#<alt (+ phi1 phi2)>
#<alt phi1>
#<alt (* phi1 (+ 1 (/ phi2 phi1)))>
#<alt (* phi1 (+ 1 (/ phi2 phi1)))>
#<alt (* phi1 (+ 1 (/ phi2 phi1)))>
#<alt phi1>
#<alt (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))>
#<alt (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))>
#<alt (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))>
#<alt phi1>
#<alt (+ phi1 phi2)>
#<alt (+ phi1 phi2)>
#<alt (+ phi1 phi2)>
#<alt phi2>
#<alt (* phi2 (+ 1 (/ phi1 phi2)))>
#<alt (* phi2 (+ 1 (/ phi1 phi2)))>
#<alt (* phi2 (+ 1 (/ phi1 phi2)))>
#<alt phi2>
#<alt (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))>
#<alt (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))>
#<alt (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 phi1))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (* R (cos (* 1/2 phi1))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 phi1))))) (* R (* lambda2 (cos (* 1/2 phi1))))) lambda1)) (* R (cos (* 1/2 phi1))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 phi1))))) lambda1)) (* R (* lambda2 (cos (* 1/2 phi1))))) lambda1)) (* R (cos (* 1/2 phi1))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 phi1))))) (* R (* lambda1 (cos (* 1/2 phi1))))) lambda2)) (* R (cos (* 1/2 phi1))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 phi1))))) lambda2)) (* R (* lambda1 (cos (* 1/2 phi1))))) lambda2)) (* R (cos (* 1/2 phi1))))))>
#<alt (* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))>
#<alt (+ (* -1 (* (* R (* phi1 phi2)) (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 (* (* R phi2) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (* phi1 (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (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 (* (* R phi2) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (* phi2 (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (pow (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)) 3))))) (* 1/2 (* (* R (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 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)) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 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)) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 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 (* (* R (* phi1 phi2)) (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 (* (* R phi1) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (* phi2 (- 1 (/ (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 (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* -1 (* (* R phi1) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi1 (* phi2 (- 1 (/ (pow phi1 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 (/ (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 (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 phi1)) 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)) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<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)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 phi1)))>
#<alt (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))))>
#<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 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))>
#<alt (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))>
#<alt (+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* -1 (* (* phi1 phi2) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))>
#<alt (+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* phi1 (+ (* -1 (* phi2 (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* phi1 (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* phi1 (+ (* -1 (* phi2 (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* phi1 (* phi2 (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (pow (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)) 3))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 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)) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 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)) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 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 (* (* phi1 phi2) (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 (* phi1 (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* phi2 (- 1 (/ (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 (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* -1 (* phi1 (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 (/ (pow phi1 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* phi1 (* phi2 (- 1 (/ (pow phi1 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))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 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)) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))>
#<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 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 (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))))>
#<alt (* -1 (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda1)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda1)) (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda1)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))))>
#<alt (* -1 (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda2)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda2)) (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda2)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))>
#<alt (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))>
#<alt (+ (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/48 phi1) (* 1/16 phi1)) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- 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 (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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/4 (* (* R (* phi1 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) 3))))) (* 1/2 (* (* R (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))>
#<alt (* phi1 (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))>
#<alt (* phi1 (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (* phi1 (+ (* -1/4 (* (/ (* R (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) (pow phi1 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))>
#<alt (* -1 (* (* R phi1) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))>
#<alt (* -1 (* phi1 (+ (* -1/2 (* (/ (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* R (* (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* 1/2 (* (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (+ (* -1/2 (* phi1 (sin (* 1/2 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (+ (* -1/2 (* phi1 (sin (* 1/2 phi2)))) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda1)) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (+ (* -1/2 (* phi1 (sin (* 1/2 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (+ (* -1/2 (* phi1 (sin (* 1/2 phi2)))) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda2)) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))>
#<alt (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))>
#<alt (+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))>
#<alt (+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/48 phi1) (* 1/16 phi1)) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 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 (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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/4 (* (* phi1 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))))>
#<alt (* phi1 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))>
#<alt (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))>
#<alt (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))))>
#<alt (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* -1/4 (* (/ (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))))>
#<alt (* -1 (* phi1 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))>
#<alt (* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1/2 (* (/ (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))))>
#<alt (* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) phi1)))))>
#<alt (* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) phi1) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 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)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))) phi1)) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) phi1)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))>
#<alt (- lambda1 lambda2)>
#<alt (- (+ lambda1 (* -1/4 (* phi1 (* phi2 (- lambda1 lambda2))))) lambda2)>
#<alt (- (+ lambda1 (* phi2 (+ (* -1/4 (* phi1 (- lambda1 lambda2))) (* -1/8 (* phi2 (- lambda1 lambda2)))))) lambda2)>
#<alt (- (+ lambda1 (* phi2 (+ (* -1/4 (* phi1 (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (- lambda1 lambda2)) (* 1/96 (* phi1 (* phi2 (- lambda1 lambda2))))))))) lambda2)>
#<alt (* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))>
#<alt (* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))>
#<alt (* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))>
#<alt (* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))>
#<alt (* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))>
#<alt (* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))>
#<alt (* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))>
#<alt (* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 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 (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))>
#<alt (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))>
#<alt (/ -1 lambda2)>
#<alt (- (* -1 (/ lambda1 (pow lambda2 2))) (/ 1 lambda2))>
#<alt (- (* lambda1 (- (* -1 (/ lambda1 (pow lambda2 3))) (/ 1 (pow lambda2 2)))) (/ 1 lambda2))>
#<alt (- (* lambda1 (- (* lambda1 (- (* -1 (/ lambda1 (pow lambda2 4))) (/ 1 (pow lambda2 3)))) (/ 1 (pow lambda2 2)))) (/ 1 lambda2))>
#<alt (/ 1 lambda1)>
#<alt (/ (+ 1 (/ lambda2 lambda1)) lambda1)>
#<alt (/ (- (+ 1 (/ (pow lambda2 2) (pow lambda1 2))) (* -1 (/ lambda2 lambda1))) lambda1)>
#<alt (/ (- (+ 1 (/ (pow lambda2 3) (pow lambda1 3))) (+ (* -1 (/ lambda2 lambda1)) (* -1 (/ (pow lambda2 2) (pow lambda1 2))))) lambda1)>
#<alt (/ 1 lambda1)>
#<alt (* -1 (/ (- (* -1 (/ lambda2 lambda1)) 1) lambda1))>
#<alt (* -1 (/ (- (* -1 (/ (- (/ (pow lambda2 2) lambda1) (* -1 lambda2)) lambda1)) 1) lambda1))>
#<alt (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (pow lambda2 3) lambda1)) (pow lambda2 2)) lambda1)) (* -1 lambda2)) lambda1)) 1) lambda1))>
#<alt (/ 1 lambda1)>
#<alt (+ (/ 1 lambda1) (/ lambda2 (pow lambda1 2)))>
#<alt (+ (* lambda2 (+ (/ 1 (pow lambda1 2)) (/ lambda2 (pow lambda1 3)))) (/ 1 lambda1))>
#<alt (+ (* lambda2 (+ (* lambda2 (+ (/ 1 (pow lambda1 3)) (/ lambda2 (pow lambda1 4)))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))>
#<alt (/ -1 lambda2)>
#<alt (/ (- (* -1 (/ lambda1 lambda2)) 1) lambda2)>
#<alt (/ (- (* -1 (/ (pow lambda1 2) (pow lambda2 2))) (+ 1 (/ lambda1 lambda2))) lambda2)>
#<alt (/ (- (* -1 (/ (pow lambda1 3) (pow lambda2 3))) (+ 1 (+ (/ lambda1 lambda2) (/ (pow lambda1 2) (pow lambda2 2))))) lambda2)>
#<alt (/ -1 lambda2)>
#<alt (* -1 (/ (+ 1 (/ lambda1 lambda2)) lambda2))>
#<alt (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow lambda1 2) lambda2)) lambda1) lambda2))) lambda2))>
#<alt (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (pow lambda1 3) lambda2) (* -1 (pow lambda1 2))) lambda2)) lambda1) lambda2))) lambda2))>
#<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 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 (* 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 (* -1/4 (* phi1 phi2))>
#<alt (* phi2 (+ (* -1/4 phi1) (* 1/96 (* phi1 (pow phi2 2)))))>
#<alt (* phi2 (+ (* -1/4 phi1) (* (pow phi2 2) (+ (* -1/7680 (* phi1 (pow phi2 2))) (* 1/96 phi1)))))>
#<alt (* phi2 (+ (* -1/4 phi1) (* (pow phi2 2) (+ (* 1/96 phi1) (* (pow phi2 2) (+ (* -1/7680 phi1) (* 1/1290240 (* phi1 (pow phi2 2)))))))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt 1>
#<alt (+ 1 (* -1/4 (* phi1 phi2)))>
#<alt (+ 1 (* phi2 (+ (* -1/4 phi1) (* -1/8 phi2))))>
#<alt (+ 1 (* phi2 (+ (* -1/4 phi1) (* phi2 (- (* 1/96 (* phi1 phi2)) 1/8)))))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* -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)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))>
Calls

192 calls:

TimeVariablePointExpression
30.0ms
phi1
@-inf
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2)))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2))))) (* (- phi1 phi2) (- phi1 phi2)))))
21.0ms
lambda1
@-inf
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))) (* (- phi1 phi2) (- phi1 phi2)))))
19.0ms
phi1
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))) (* (- phi1 phi2) (- phi1 phi2)))))
10.0ms
phi2
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))) (* (- phi1 phi2) (- phi1 phi2)))))
9.0ms
R
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2)))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2))))) (* (- phi1 phi2) (- phi1 phi2)))))

rewrite1.5s (4.2%)

Algorithm
1×batch-egg-rewrite
Rules
6084×*-lowering-*.f32
6084×*-lowering-*.f64
3338×+-lowering-+.f64
3338×+-lowering-+.f32
3024×/-lowering-/.f32
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
044209
1214202
21926202
011570202
Stop Event
1×iter limit
1×node limit
Counts
22 → 358
Calls
Call 1
Inputs
(* R (sqrt (+ (* (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2))) (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(sqrt (+ (* (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2))) (/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))
(/ (cos (/ (+ phi1 phi2) 2)) (/ 1 (- lambda1 lambda2)))
(cos (/ (+ phi1 phi2) 2))
(* R phi2)
(* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1))
(cos (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
(+ phi1 phi2)
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))) (* (- phi1 phi2) (- phi1 phi2)))))
(sqrt (+ (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))) (* (- phi1 phi2) (- phi1 phi2))))
(* (- lambda1 lambda2) (cos (* 1/2 phi1)))
(- lambda1 lambda2)
(* R (sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2)))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2))))) (* (- phi1 phi2) (- phi1 phi2)))))
(sqrt (+ (* (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2)))) (* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2))))) (* (- phi1 phi2) (- phi1 phi2))))
(* (- lambda1 lambda2) (+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2))))
(/ 1 (- lambda1 lambda2))
(* R lambda1)
(cos (* 1/2 phi1))
(* 1/2 phi1)
(* (sin (* 1/2 phi2)) (* phi1 -1/2))
(+ (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* phi1 -1/2)))
Outputs
(*.f64 R (hypot.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
(*.f64 (hypot.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)) R)
(exp.f64 (*.f64 (log.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(hypot.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))
(sqrt.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (+.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 6 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (-.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(/.f64 (hypot.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))
(/.f64 (hypot.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (-.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(/.f64 (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 6 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (neg.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(/.f64 (sqrt.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(pow.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 (log.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #s(literal 1/2 binary64))
(*.f64 (hypot.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) #s(literal 1/2 binary64)))
(*.f64 (hypot.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(*.f64 (pow.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)))
(+.f64 (*.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)))
(+.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) #s(literal -1 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 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(neg.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (*.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (*.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))
(*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(*.f64 (-.f64 lambda1 lambda2) (pow.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(*.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1 binary64)) (-.f64 lambda1 lambda2))
(*.f64 (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(+.f64 (fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/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 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 R phi2)
(*.f64 phi2 R)
(*.f64 R (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))
(*.f64 lambda1 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(*.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) lambda1)
(*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda1) R)
(+.f64 (fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/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 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1 binary64))
(+.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64)))
(+.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2))) #s(literal -1 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))
(fma.f64 phi2 #s(literal 1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 phi2 #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(neg.f64 (/.f64 (+.f64 phi1 phi2) #s(literal -2 binary64)))
(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2))))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 phi1 phi2)) #s(literal -2 binary64))
(/.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 #s(literal 2 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1)))))
(/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) #s(literal 1/8 binary64)) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) #s(literal 1/8 binary64))) (+.f64 (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64)))) (-.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64))))
(/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1))))
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) (-.f64 phi1 phi2))
(/.f64 (*.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2))) #s(literal 1/2 binary64)) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1))))
(/.f64 (*.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (-.f64 phi1 phi2))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)) #s(literal -1 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (+.f64 phi1 phi2)) #s(literal -1/2 binary64))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1)))))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))
(+.f64 phi1 phi2)
(+.f64 phi2 phi1)
(-.f64 (/.f64 (*.f64 phi1 phi1) (-.f64 phi1 phi2)) (/.f64 (*.f64 phi2 phi2) (-.f64 phi1 phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1))) (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))))
(/.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1))))
(/.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2))) (+.f64 (*.f64 phi2 phi2) (-.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi2))))
(/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (-.f64 phi1 phi2))
(/.f64 (neg.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) (neg.f64 (-.f64 phi1 phi2)))
(/.f64 (neg.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))) (neg.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1)))))
(/.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (-.f64 phi2 phi1))
(pow.f64 (/.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1))) (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) #s(literal -1 binary64))
(*.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1)))))
(*.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))
(*.f64 (/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) (+.f64 phi1 phi2))
(*.f64 (/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (-.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (+.f64 phi1 phi2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) R)
(exp.f64 (*.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 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))
(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 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.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 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(/.f64 (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.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 phi1 #s(literal 1/2 binary64))))))))))))
(/.f64 (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.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 phi1 #s(literal 1/2 binary64))))))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(/.f64 (sqrt.f64 (neg.f64 (+.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64))))) (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.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 phi1 #s(literal 1/2 binary64)))))))))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (neg.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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(/.f64 (sqrt.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 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 phi1 #s(literal 1/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 phi1 #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))
(pow.f64 (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 phi1 #s(literal 1/2 binary64)))))))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (*.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 phi1 #s(literal 1/2 binary64)))))))) (+.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 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/4 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 phi1 #s(literal 1/2 binary64)))))))))) #s(literal 1/2 binary64))
(*.f64 (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.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 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 1/2 binary64)))
(*.f64 (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.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 phi1 #s(literal 1/2 binary64)))))))))))))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(*.f64 (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 phi1 #s(literal 1/2 binary64)))))))) #s(literal 1/4 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 phi1 #s(literal 1/2 binary64)))))))) #s(literal 1/4 binary64)))
(+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (*.f64 lambda1 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(fma.f64 lambda1 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)))
(/.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 lambda1 lambda2))
(pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(*.f64 (-.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))
(*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (-.f64 lambda1 lambda2))
(+.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))
(+.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1)
(exp.f64 (*.f64 (log.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (*.f64 (log.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)) #s(literal -1 binary64)))
(exp.f64 (neg.f64 (*.f64 (log.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))
(-.f64 lambda1 lambda2)
(-.f64 (/.f64 lambda1 #s(literal 1 binary64)) (/.f64 lambda2 #s(literal 1 binary64)))
(-.f64 (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)))
(fma.f64 #s(literal -1 binary64) lambda2 lambda1)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 lambda2) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(/.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (-.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2)))))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (-.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2)))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (neg.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (neg.f64 (+.f64 lambda1 lambda2)))
(pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 lambda1 lambda2) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))
(*.f64 #s(literal -1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(*.f64 (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))))
(*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) R)
(exp.f64 (*.f64 (log.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 phi1 phi2))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64))))) (+.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 6 binary64))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(/.f64 (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))))))
(/.f64 (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(/.f64 (sqrt.f64 (neg.f64 (+.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 6 binary64))))) (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64))))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(/.f64 (sqrt.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/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 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) #s(literal 1/4 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 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(*.f64 (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))))) #s(literal 1/2 binary64)))
(*.f64 (hypot.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 3 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64))))))))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(*.f64 (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) lambda1) (*.f64 (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (*.f64 lambda1 (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))))
(exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) #s(literal 1 binary64)))
(fma.f64 lambda1 (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))))
(fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))))
(fma.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) lambda1 (*.f64 (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (*.f64 phi1 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 phi1 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (+.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 3 binary64)))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64)))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 3 binary64)))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64)))))) (*.f64 (+.f64 lambda1 lambda2) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 3 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (*.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 3 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (*.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 lambda1 lambda2)))
(/.f64 (*.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (*.f64 (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (*.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (*.f64 (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 3 binary64)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))
(/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 3 binary64))) (-.f64 lambda1 lambda2)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))
(/.f64 (*.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (+.f64 lambda1 lambda2)) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))
(pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 1 binary64))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))
(*.f64 (-.f64 lambda1 lambda2) (pow.f64 (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 1 binary64)))
(*.f64 (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 lambda1 lambda2))
(*.f64 (pow.f64 (+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 1 binary64)) (-.f64 lambda1 lambda2))
(exp.f64 (*.f64 (log.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))
(neg.f64 (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(/.f64 #s(literal 1 binary64) (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(pow.f64 (-.f64 lambda1 lambda2) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(pow.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))
(pow.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(pow.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(*.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))
(*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)) #s(literal -1 binary64)))
(*.f64 R lambda1)
(*.f64 lambda1 R)
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 phi1 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))
(*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (*.f64 phi1 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) phi1)
(+.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))
(+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))))
(fma.f64 phi1 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(fma.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(fma.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(fma.f64 (*.f64 phi1 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal -1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 3 binary64))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64)))))) (neg.f64 (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(pow.f64 (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64)))))) #s(literal -1 binary64))
(*.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))))
(*.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))))))

simplify1.3s (3.5%)

Algorithm
1×egg-herbie
Rules
6414×*-lowering-*.f32
6414×*-lowering-*.f64
3770×+-lowering-+.f64
3770×+-lowering-+.f32
1512×/-lowering-/.f32
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
0213822919
1640822314
0822422314
Stop Event
1×iter limit
1×node limit
Counts
768 → 768
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 (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)))))
(* 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)))))))
(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)))))
(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)))))
(* (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 (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))
(+ (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))))
(* 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)
(* 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 (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)))))
(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)))
phi2
(+ phi1 phi2)
(+ phi1 phi2)
(+ phi1 phi2)
phi1
(* phi1 (+ 1 (/ phi2 phi1)))
(* phi1 (+ 1 (/ phi2 phi1)))
(* phi1 (+ 1 (/ phi2 phi1)))
phi1
(* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))
(* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))
(* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))
phi1
(+ phi1 phi2)
(+ phi1 phi2)
(+ phi1 phi2)
phi2
(* phi2 (+ 1 (/ phi1 phi2)))
(* phi2 (+ 1 (/ phi1 phi2)))
(* phi2 (+ 1 (/ phi1 phi2)))
phi2
(* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))
(* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))
(* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (* R (cos (* 1/2 phi1)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))))
(* -1 (* R (* lambda1 (cos (* 1/2 phi1)))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (* R (cos (* 1/2 phi1))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 phi1))))) (* R (* lambda2 (cos (* 1/2 phi1))))) lambda1)) (* R (cos (* 1/2 phi1))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 phi1))))) lambda1)) (* R (* lambda2 (cos (* 1/2 phi1))))) lambda1)) (* R (cos (* 1/2 phi1))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 phi1))))) (* R (* lambda1 (cos (* 1/2 phi1))))) lambda2)) (* R (cos (* 1/2 phi1))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 phi1))))) lambda2)) (* R (* lambda1 (cos (* 1/2 phi1))))) lambda2)) (* R (cos (* 1/2 phi1))))))
(* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))
(+ (* -1 (* (* R (* phi1 phi2)) (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 (* (* R phi2) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (* phi1 (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))
(+ (* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* -1 (* (* R phi2) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (* phi2 (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (pow (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)) 3))))) (* 1/2 (* (* R (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 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)) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 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)) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 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 (* (* R (* phi1 phi2)) (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 (* (* R phi1) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (* phi2 (- 1 (/ (pow phi1 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* -1 (* (* R phi1) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi1 (* phi2 (- 1 (/ (pow phi1 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 (/ (pow phi1 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 phi1)) 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)) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))))
(* -1 (* lambda1 (cos (* 1/2 phi1))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 phi1)))
(* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))
(+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* -1 (* (* phi1 phi2) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))
(+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* phi1 (+ (* -1 (* phi2 (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* phi1 (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))
(+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* phi1 (+ (* -1 (* phi2 (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* phi1 (* phi2 (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (pow (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)) 3))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 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)) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 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 (* (* phi1 phi2) (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 (* phi1 (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* phi2 (- 1 (/ (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)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* -1 (* phi1 (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 (/ (pow phi1 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* phi1 (* phi2 (- 1 (/ (pow phi1 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))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 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)) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(* -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 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 (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))))
(* -1 (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda1)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda1)) (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda1)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))))
(* -1 (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda2)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda2)) (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda2)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))
(+ (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))
(+ (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/48 phi1) (* 1/16 phi1)) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- 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 (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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/4 (* (* R (* phi1 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) 3))))) (* 1/2 (* (* R (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))
(* phi1 (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))
(* phi1 (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(* phi1 (+ (* -1/4 (* (/ (* R (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) (pow phi1 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))
(* -1 (* (* R phi1) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))
(* -1 (* phi1 (+ (* -1/2 (* (/ (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(* -1 (* phi1 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(* -1 (* phi1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* R (* (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* 1/2 (* (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (+ (* -1/2 (* phi1 (sin (* 1/2 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (+ (* -1/2 (* phi1 (sin (* 1/2 phi2)))) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda1)) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (+ (* -1/2 (* phi1 (sin (* 1/2 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (+ (* -1/2 (* phi1 (sin (* 1/2 phi2)))) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda2)) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))
(+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))
(+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))
(+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/48 phi1) (* 1/16 phi1)) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 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 (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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/4 (* (* phi1 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))))
(* phi1 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))
(* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))
(* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))))
(* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* -1/4 (* (/ (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))))
(* -1 (* phi1 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))
(* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1/2 (* (/ (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))))
(* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) phi1)))))
(* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) phi1) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 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)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))) phi1)) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) phi1)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))
(* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(* lambda2 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)))
(* lambda2 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)))
(* lambda2 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(- lambda1 lambda2)
(- (+ lambda1 (* -1/4 (* phi1 (* phi2 (- lambda1 lambda2))))) lambda2)
(- (+ lambda1 (* phi2 (+ (* -1/4 (* phi1 (- lambda1 lambda2))) (* -1/8 (* phi2 (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* phi2 (+ (* -1/4 (* phi1 (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (- lambda1 lambda2)) (* 1/96 (* phi1 (* phi2 (- lambda1 lambda2))))))))) lambda2)
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 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)))
(+ (* -1/2 (* phi1 (* (sin (* 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)))
(* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))
(* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))
(* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))
(* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))
(* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))
(* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))
(* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))
(* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))
(/ -1 lambda2)
(- (* -1 (/ lambda1 (pow lambda2 2))) (/ 1 lambda2))
(- (* lambda1 (- (* -1 (/ lambda1 (pow lambda2 3))) (/ 1 (pow lambda2 2)))) (/ 1 lambda2))
(- (* lambda1 (- (* lambda1 (- (* -1 (/ lambda1 (pow lambda2 4))) (/ 1 (pow lambda2 3)))) (/ 1 (pow lambda2 2)))) (/ 1 lambda2))
(/ 1 lambda1)
(/ (+ 1 (/ lambda2 lambda1)) lambda1)
(/ (- (+ 1 (/ (pow lambda2 2) (pow lambda1 2))) (* -1 (/ lambda2 lambda1))) lambda1)
(/ (- (+ 1 (/ (pow lambda2 3) (pow lambda1 3))) (+ (* -1 (/ lambda2 lambda1)) (* -1 (/ (pow lambda2 2) (pow lambda1 2))))) lambda1)
(/ 1 lambda1)
(* -1 (/ (- (* -1 (/ lambda2 lambda1)) 1) lambda1))
(* -1 (/ (- (* -1 (/ (- (/ (pow lambda2 2) lambda1) (* -1 lambda2)) lambda1)) 1) lambda1))
(* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (pow lambda2 3) lambda1)) (pow lambda2 2)) lambda1)) (* -1 lambda2)) lambda1)) 1) lambda1))
(/ 1 lambda1)
(+ (/ 1 lambda1) (/ lambda2 (pow lambda1 2)))
(+ (* lambda2 (+ (/ 1 (pow lambda1 2)) (/ lambda2 (pow lambda1 3)))) (/ 1 lambda1))
(+ (* lambda2 (+ (* lambda2 (+ (/ 1 (pow lambda1 3)) (/ lambda2 (pow lambda1 4)))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))
(/ -1 lambda2)
(/ (- (* -1 (/ lambda1 lambda2)) 1) lambda2)
(/ (- (* -1 (/ (pow lambda1 2) (pow lambda2 2))) (+ 1 (/ lambda1 lambda2))) lambda2)
(/ (- (* -1 (/ (pow lambda1 3) (pow lambda2 3))) (+ 1 (+ (/ lambda1 lambda2) (/ (pow lambda1 2) (pow lambda2 2))))) lambda2)
(/ -1 lambda2)
(* -1 (/ (+ 1 (/ lambda1 lambda2)) lambda2))
(* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow lambda1 2) lambda2)) lambda1) lambda2))) lambda2))
(* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (pow lambda1 3) lambda2) (* -1 (pow lambda1 2))) lambda2)) lambda1) lambda2))) lambda2))
(* 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)
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))
(* 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)
(* -1/4 (* phi1 phi2))
(* phi2 (+ (* -1/4 phi1) (* 1/96 (* phi1 (pow phi2 2)))))
(* phi2 (+ (* -1/4 phi1) (* (pow phi2 2) (+ (* -1/7680 (* phi1 (pow phi2 2))) (* 1/96 phi1)))))
(* phi2 (+ (* -1/4 phi1) (* (pow phi2 2) (+ (* 1/96 phi1) (* (pow phi2 2) (+ (* -1/7680 phi1) (* 1/1290240 (* phi1 (pow phi2 2)))))))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
1
(+ 1 (* -1/4 (* phi1 phi2)))
(+ 1 (* phi2 (+ (* -1/4 phi1) (* -1/8 phi2))))
(+ 1 (* phi2 (+ (* -1/4 phi1) (* phi2 (- (* 1/96 (* phi1 phi2)) 1/8)))))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* -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)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))
(* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))
(* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 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 (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi1) (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (*.f64 R phi1) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))))) (*.f64 (*.f64 R (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (*.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 #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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))))) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))))) (*.f64 R (*.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.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 (*.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 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)) (*.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 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (*.f64 R 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 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)) (*.f64 phi1 phi1))))))))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) 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 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))) #s(literal 2 binary64)) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))) #s(literal 2 binary64)) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(+ (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi2) (-.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.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 (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (*.f64 R phi2) (+.f64 #s(literal 1 binary64) (-.f64 (*.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (*.f64 (*.f64 R (-.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.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 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (*.f64 R phi2) (+.f64 (*.f64 (*.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 #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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (*.f64 R (*.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))))))
(* 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 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)) (*.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 (*.f64 (/.f64 (*.f64 R phi1) 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 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)) (*.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 (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 (*.f64 #s(literal 1 binary64) 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2))) phi2)) 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 (*.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 (*.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 (*.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) (+.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 R 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)))))) (* 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 (*.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 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 R (-.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) (+.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 R 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 (* 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 (+.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 (*.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)))
(* -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 #s(literal -1 binary64) 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 (*.f64 #s(literal -1 binary64) 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 (*.f64 #s(literal -1 binary64) 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 R (*.f64 (*.f64 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))))))) (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 (*.f64 R 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) (+.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)))))) (* 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 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 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 (-.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) (+.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 R 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) (+.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 (* 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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.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)))
(* 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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.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 R lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 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)))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (*.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))))) (*.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))))) (*.f64 phi1 (*.f64 (+.f64 (*.f64 (*.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 #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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))))) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.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 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 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))) #s(literal 2 binary64)) (*.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 phi2 (-.f64 #s(literal 0 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))) #s(literal 2 binary64)) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))
(+ (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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))))
(+ (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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi2 (*.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.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 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (-.f64 (*.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 phi2 (*.f64 (+.f64 (*.f64 (*.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 #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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))))))
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 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 phi1 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 (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 #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 (*.f64 #s(literal 1 binary64) 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 (*.f64 #s(literal 1 binary64) 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 (*.f64 #s(literal 1 binary64) 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 (*.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 (*.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) (+.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 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 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 (-.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)) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 #s(literal -1 binary64) 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 (*.f64 #s(literal -1 binary64) 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 (*.f64 #s(literal -1 binary64) 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 (*.f64 #s(literal -1 binary64) 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 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (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 (*.f64 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))))))) (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 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) (+.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)))))) (* 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 (*.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 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 (*.f64 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) (+.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))))))))))
(* 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 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.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 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 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.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 #s(literal -1/2 binary64) (*.f64 (/.f64 (-.f64 phi1 phi2) lambda2) (/.f64 (-.f64 phi1 phi2) (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 lambda1 (*.f64 (/.f64 (-.f64 phi1 phi2) lambda2) (/.f64 (-.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)))))) lambda2)) lambda2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (*.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 (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 phi2 (-.f64 #s(literal 0 binary64) phi1)))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (*.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (*.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 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)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (*.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 #s(literal -1/8 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.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 (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 (*.f64 #s(literal 1 binary64) phi2)))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2)))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2)))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2)))) (-.f64 lambda1 lambda2))
(* -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 (*.f64 #s(literal -1 binary64) 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 (*.f64 #s(literal -1 binary64) 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 (*.f64 #s(literal -1 binary64) 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))
(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 #s(literal -1/8 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.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 phi2 (-.f64 #s(literal 0 binary64) phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 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)) (* 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 #s(literal -1/8 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 (*.f64 #s(literal 1 binary64) phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 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)
(* 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 phi2 (-.f64 #s(literal 0 binary64) phi1)))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))))
(* 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 (*.f64 #s(literal 1 binary64) phi2)))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2)))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2)))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 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 (+ 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))))
(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 #s(literal -1/8 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.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 phi2 (-.f64 #s(literal 0 binary64) phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (-.f64 #s(literal 0 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)) (* 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 #s(literal -1/8 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 (*.f64 #s(literal 1 binary64) phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) 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 #s(literal 1/2 binary64) (/.f64 phi1 phi2))))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2))))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 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)))
phi2
(+ phi1 phi2)
(+.f64 phi1 phi2)
(+ phi1 phi2)
(+.f64 phi1 phi2)
(+ phi1 phi2)
(+.f64 phi1 phi2)
phi1
(* phi1 (+ 1 (/ phi2 phi1)))
(*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* phi1 (+ 1 (/ phi2 phi1)))
(*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* phi1 (+ 1 (/ phi2 phi1)))
(*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
phi1
(* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)))
(* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)))
(* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)))
phi1
(+ phi1 phi2)
(+.f64 phi1 phi2)
(+ phi1 phi2)
(+.f64 phi1 phi2)
(+ phi1 phi2)
(+.f64 phi1 phi2)
phi2
(* phi2 (+ 1 (/ phi1 phi2)))
(*.f64 phi2 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (/ phi1 phi2)))
(*.f64 phi2 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (/ phi1 phi2)))
(*.f64 phi2 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
phi2
(* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi1 phi2)) #s(literal -1 binary64)))
(* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi1 phi2)) #s(literal -1 binary64)))
(* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi1 phi2)) #s(literal -1 binary64)))
(* R (sqrt (+ (* (pow (cos (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (cos (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (cos (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (cos (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (cos (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (cos (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (cos (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (cos (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (cos (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (cos (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (cos (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (cos (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.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 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 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 (cos.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 (*.f64 (*.f64 R lambda1) (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.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 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 R (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.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 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))) (*.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))))
(*.f64 lambda1 (-.f64 (+.f64 (*.f64 R (cos.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) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))))
(*.f64 lambda1 (-.f64 (+.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.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) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (* R (cos (* 1/2 phi1))))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 phi1))))) (* R (* lambda2 (cos (* 1/2 phi1))))) lambda1)) (* R (cos (* 1/2 phi1))))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda2) (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1)))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 phi1))))) lambda1)) (* R (* lambda2 (cos (* 1/2 phi1))))) lambda1)) (* R (cos (* 1/2 phi1))))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1)) lambda1)))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 lambda2 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.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 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 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 (cos.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 (*.f64 (*.f64 R lambda1) (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.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 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 R (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.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 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))) (*.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))))
(*.f64 lambda2 (-.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))))
(*.f64 lambda2 (-.f64 (+.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (/.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) phi1))))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) 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 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 phi1))))) (* R (* lambda1 (cos (* 1/2 phi1))))) lambda2)) (* R (cos (* 1/2 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda1) (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2)))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 phi1))))) lambda2)) (* R (* lambda1 (cos (* 1/2 phi1))))) lambda2)) (* R (cos (* 1/2 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 R lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2)) lambda2)))
(* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))
(*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2)))
(+ (* -1 (* (* R (* phi1 phi2)) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* R (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))
(-.f64 (*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (*.f64 R phi1) phi2) (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 (* (* R phi2) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (* phi1 (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))
(+.f64 (*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2))) (*.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (*.f64 phi1 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.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))))))) (*.f64 (*.f64 R phi2) (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 (* (* R phi2) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (* phi2 (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (pow (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)) 3))))) (* 1/2 (* (* R (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))))
(+.f64 (*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2))) (*.f64 phi1 (-.f64 (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 (*.f64 (*.f64 phi1 phi2) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) (*.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))) (*.f64 (*.f64 R (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.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)))))))) (*.f64 (*.f64 R phi2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 (*.f64 R phi2) phi1)))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 phi1)) 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) phi1)) #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)) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 phi1)) 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) phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 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 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) phi1)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(+ (* -1 (* (* R (* phi1 phi2)) (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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (*.f64 (*.f64 (*.f64 R phi1) phi2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* -1 (* (* R phi1) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (* phi2 (- 1 (/ (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 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (*.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))) (*.f64 (*.f64 R phi1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* -1 (* (* R phi1) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi1 (* phi2 (- 1 (/ (pow phi1 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 (/ (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 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (*.f64 phi2 (-.f64 (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 (*.f64 (*.f64 phi1 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 phi1 phi1) (*.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 3 binary64)))))) (*.f64 R (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))) (*.f64 (*.f64 R phi1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))
(* 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)) 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) phi1)) #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)) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 phi1)) 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) phi2) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal 0 binary64) (*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 phi1)) 2) (pow (- 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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) phi2)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 phi1)) 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2))) phi2)) phi2)))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 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) phi1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.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 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (*.f64 (*.f64 lambda2 (pow.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 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 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 (*.f64 lambda1 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.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 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 3 binary64)))))))) (*.f64 (*.f64 lambda2 (pow.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(* 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)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.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) 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)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (/.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))))
(-.f64 #s(literal 0 binary64) (*.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))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (+.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1)))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1)) lambda1)))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 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) phi1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.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 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (*.f64 (*.f64 lambda1 (pow.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 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 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.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 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 3 binary64))))))))) (*.f64 (*.f64 lambda1 (pow.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(* lambda2 (cos (* 1/2 phi1)))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))
(*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))
(*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))))
(*.f64 lambda2 (+.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 lambda1 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 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 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 phi1))))) (* 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 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2)))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(-.f64 #s(literal 0 binary64) (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (*.f64 lambda1 (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2)) lambda2))))
(sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))
(hypot.f64 phi2 (-.f64 lambda1 lambda2))
(+ (sqrt (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))) (* -1 (* (* phi1 phi2) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))
(-.f64 (hypot.f64 phi2 (-.f64 lambda1 lambda2)) (*.f64 (*.f64 phi1 phi2) (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 (* phi2 (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* phi1 (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))))))
(+.f64 (hypot.f64 phi2 (-.f64 lambda1 lambda2)) (*.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.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)))))) (*.f64 phi2 (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 (* phi2 (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* phi1 (* phi2 (- (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (/ (pow phi2 2) (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (pow (+ (pow phi2 2) (pow (- lambda1 lambda2) 2)) 3))))))))))
(+.f64 (hypot.f64 phi2 (-.f64 lambda1 lambda2)) (*.f64 phi1 (-.f64 (*.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 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))) (*.f64 (*.f64 (*.f64 phi1 phi2) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) (*.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))))) (*.f64 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)) 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) phi1)) #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)) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 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 phi2 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #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) 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)) 2) (pow (- 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1)) phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* -1 (* (* phi1 phi2) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (*.f64 (*.f64 phi1 phi2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* -1 (* phi1 (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* phi2 (- 1 (/ (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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (*.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* -1 (* phi1 (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 (/ (pow phi1 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* phi1 (* phi2 (- 1 (/ (pow phi1 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))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (*.f64 phi2 (-.f64 (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (*.f64 (*.f64 (*.f64 phi1 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 phi1 phi1) (*.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 3 binary64)))))))) (*.f64 phi1 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))
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)) 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) phi1)) #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)) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 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 phi2) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #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 #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)) 2) (pow (- 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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2)) phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 phi1)) 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) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2))) phi2)) 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 (*.f64 #s(literal -1 binary64) 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 (*.f64 #s(literal -1 binary64) 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 (*.f64 #s(literal -1 binary64) 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 #s(literal -1/8 binary64) (*.f64 phi1 phi1)) (-.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 #s(literal -1/8 binary64) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 phi1 phi1)) (-.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 #s(literal -1/8 binary64) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal -1/46080 binary64) (*.f64 phi1 phi1)) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 1/384 binary64) (-.f64 lambda1 lambda2)))))) lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.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 #s(literal -1 binary64) lambda1) (+.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (+.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(*.f64 (*.f64 #s(literal -1 binary64) 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))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -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 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #s(literal 2 binary64))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -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 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (+.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)))) #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) phi2)) (*.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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -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 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #s(literal 2 binary64)))))) (*.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (*.f64 lambda1 (-.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #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) phi2)) (*.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 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #s(literal 2 binary64))))))))) (*.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (+.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)))) #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) phi2)) (*.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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -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 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #s(literal 2 binary64)))))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (*.f64 R lambda1) (*.f64 (*.f64 lambda2 (pow.f64 (+.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)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #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) phi2)) (*.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)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 R (-.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #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) phi2)) (*.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 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #s(literal 2 binary64)))))))))) (*.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (+.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)))) #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) phi2)) (*.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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(*.f64 (*.f64 R lambda1) (+.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)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(*.f64 lambda1 (-.f64 (*.f64 R (+.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))))) (/.f64 (*.f64 (*.f64 R lambda2) (+.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))))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(*.f64 lambda1 (-.f64 (+.f64 (*.f64 R (+.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))))) (/.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) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (/.f64 (*.f64 (*.f64 R lambda2) (+.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))))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))))
(*.f64 lambda1 (-.f64 (+.f64 (+.f64 (*.f64 R (+.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))))) (/.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) phi2)) (*.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 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.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))))))) (/.f64 (*.f64 (*.f64 R lambda2) (+.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))))) lambda1)))
(* -1 (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (+.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))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (*.f64 R (+.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))))) (/.f64 (*.f64 (*.f64 R lambda2) (+.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))))) lambda1)))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda1)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (*.f64 R (+.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))))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda2) (+.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))))) (/.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) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda1)))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda1)) (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda1)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (*.f64 R (+.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))))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (+.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))))) (/.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) phi2)) (*.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 (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))))))) lambda1)) lambda1)))
(* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -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 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #s(literal 2 binary64))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -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 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #s(literal 2 binary64)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (+.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)))) #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) phi2)) (*.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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -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 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #s(literal 2 binary64)))))) (*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #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) phi2)) (*.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 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (+.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)))) #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) phi2)) (*.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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -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 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #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 (+.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)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #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) phi2)) (*.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)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 R (*.f64 (-.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #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) phi2)) (*.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 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #s(literal 2 binary64))))))))))) (*.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (+.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)))) #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) phi2)) (*.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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(*.f64 (*.f64 R lambda2) (+.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)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(*.f64 lambda2 (-.f64 (*.f64 R (+.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))))) (/.f64 (*.f64 (*.f64 R lambda1) (+.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))))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(*.f64 lambda2 (-.f64 (+.f64 (*.f64 R (+.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))))) (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 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))))))) (/.f64 (*.f64 (*.f64 R lambda1) (+.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))))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))))
(*.f64 lambda2 (-.f64 (+.f64 (+.f64 (*.f64 R (+.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))))) (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 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))))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (+.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))))))) (/.f64 (*.f64 (*.f64 R lambda1) (+.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))))) lambda2)))
(* -1 (* R (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.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))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (+.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))))) (/.f64 (*.f64 (*.f64 R lambda1) (+.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))))) lambda2)))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda2)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (+.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))))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda1) (+.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))))) (*.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 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))))))) lambda2)))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda2)) (* R (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda2)) (* R (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (+.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))))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda1) (+.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))))) (/.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) phi2)) (*.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 (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))))))) lambda2)) lambda2)))
(* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))
(*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2)))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))
(+.f64 (*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi2) (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))))
(+ (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))
(+.f64 (*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (*.f64 R phi2) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 phi1 phi1)) #s(literal -1/4 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) (*.f64 R (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))))))))
(+ (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/48 phi1) (* 1/16 phi1)) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))))
(+.f64 (*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (*.f64 R phi2) (+.f64 (*.f64 (*.f64 phi1 #s(literal 1/12 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 #s(literal 1/16 binary64) (*.f64 phi1 phi1)) #s(literal -1/4 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) (*.f64 R (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 phi1 phi1)) #s(literal -1/4 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 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) phi2) (*.f64 (pow.f64 (+.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)))) #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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 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) phi2) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (*.f64 R (*.f64 (pow.f64 (+.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)))) #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 #s(literal 0 binary64) (*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 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 (+.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)))) #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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 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 (pow.f64 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2))) phi2)) phi2)))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi1) (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.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 (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (*.f64 R phi1) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))))) (*.f64 (*.f64 R (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 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/4 (* (* R (* phi1 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) 3))))) (* 1/2 (* (* R (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 R (*.f64 (*.f64 (*.f64 phi1 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) #s(literal 3 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))))))))))))
(* (* R phi1) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))
(*.f64 (*.f64 R phi1) (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))
(* phi1 (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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))))) phi1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))) (*.f64 R (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))))
(* phi1 (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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))))) phi1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))) (+.f64 (*.f64 R (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 R (+.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 phi1 phi1))))))
(* phi1 (+ (* -1/4 (* (/ (* R (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) (pow phi1 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))
(*.f64 phi1 (+.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (*.f64 R (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 3 binary64))))) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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))))) phi1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))))) (+.f64 (*.f64 R (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 R (+.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 phi1 phi1))))))
(* -1 (* (* R phi1) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))
(* -1 (* phi1 (+ (* -1/2 (* (/ (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (*.f64 R (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (+.f64 (*.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 2 binary64) phi2))) phi1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))))))
(* -1 (* phi1 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (+.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (*.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 2 binary64) phi2)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))) phi1)) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.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 2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))) phi1)))
(* -1 (* phi1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* R (* (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* 1/2 (* (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (+.f64 (*.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 2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (/.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 (*.f64 R (+.f64 (*.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 2 binary64) phi2))) (+.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (*.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 2 binary64) phi2)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 3 binary64))))) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (*.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 2 binary64) phi2)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))) phi1)) phi1)))
(sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 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) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 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) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (+.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)))) #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) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 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) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (-.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #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) phi2)) (*.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 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #s(literal 2 binary64)))))))) (*.f64 (*.f64 lambda2 (pow.f64 (+.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)))) #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) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (cos (* 1/2 phi2)) (* -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 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #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) phi2)) (*.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 (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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #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) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))) (*.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (+.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)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #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) phi2)) (*.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)) (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (+.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)))) #s(literal 2 binary64)))) #s(literal 3 binary64))))))))) (*.f64 (*.f64 lambda2 (pow.f64 (+.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)))) #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) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))
(*.f64 lambda1 (+.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)))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(*.f64 lambda1 (+.f64 (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))) (/.f64 (*.f64 lambda2 (+.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))))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (+ (* -1/2 (* phi1 (sin (* 1/2 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))))))
(*.f64 lambda1 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (+.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (+.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))))) lambda1)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (+.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)))))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (+ (* -1/2 (* phi1 (sin (* 1/2 phi2)))) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))))))
(*.f64 lambda1 (+.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (*.f64 lambda2 (+.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))))) lambda1)) (+.f64 (*.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 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (+.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))))) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 lambda1 lambda1)) (+.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))))))))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (+.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)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (+.f64 (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))) (/.f64 (*.f64 lambda2 (+.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))))) lambda1))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (+.f64 (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))) (/.f64 (+.f64 (*.f64 lambda2 (+.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))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) lambda1) (+.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))))))) lambda1))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda1)) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (+.f64 (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))) (/.f64 (-.f64 (*.f64 lambda2 (+.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))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (/.f64 (*.f64 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda1) (+.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))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 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))))))) lambda1)) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 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) phi2)) (*.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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 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) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (+.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)))) #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) phi2)) (*.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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 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) phi2)) (*.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 (*.f64 lambda2 (-.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #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) phi2)) (*.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 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #s(literal 2 binary64)))))))) (*.f64 (*.f64 lambda1 (pow.f64 (+.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)))) #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) phi2)) (*.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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (- (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (/ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 4)) (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (cos (* 1/2 phi2)) (* -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 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #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) phi2)) (*.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 (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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #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) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))) (*.f64 (*.f64 lambda1 (*.f64 (*.f64 lambda2 (pow.f64 (+.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)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #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) phi2)) (*.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)) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (+.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)))) #s(literal 2 binary64)))) #s(literal 3 binary64)))))))) (*.f64 (*.f64 lambda1 (pow.f64 (+.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)))) #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) phi2)) (*.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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))
(*.f64 lambda2 (+.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)))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(*.f64 lambda2 (+.f64 (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))) (/.f64 (*.f64 lambda1 (+.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))))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (+ (* -1/2 (* phi1 (sin (* 1/2 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))))))
(*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (+.f64 (-.f64 (*.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) phi2)) (*.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 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (+.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)))))))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (+ (* -1/2 (* phi1 (sin (* 1/2 phi2)))) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))))))))
(*.f64 lambda2 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (+.f64 (-.f64 (*.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) phi2)) (*.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 (*.f64 (/.f64 lambda1 lambda2) (*.f64 (/.f64 (-.f64 phi1 phi2) lambda2) (/.f64 (-.f64 phi1 phi2) lambda2))) (+.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))))) (/.f64 (*.f64 (/.f64 (-.f64 phi1 phi2) lambda2) (/.f64 (-.f64 phi1 phi2) lambda2)) (+.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))))))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.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)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 (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))) (/.f64 (*.f64 lambda1 (+.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))))) lambda2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (+.f64 (*.f64 lambda1 (+.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))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) lambda2) (+.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))))))) lambda2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))) lambda2)) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 (*.f64 lambda1 (+.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))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (/.f64 (*.f64 lambda1 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda2) (+.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))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 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))))))) lambda2)) lambda2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))
(hypot.f64 phi1 (-.f64 lambda1 lambda2))
(+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))
(+.f64 (hypot.f64 phi1 (-.f64 lambda1 lambda2)) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))))))
(+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))
(+.f64 (hypot.f64 phi1 (-.f64 lambda1 lambda2)) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi2 (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 phi1 phi1)) #s(literal -1/4 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))))))
(+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/48 phi1) (* 1/16 phi1)) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow (- lambda1 lambda2) 2) (- (* 1/16 (pow phi1 2)) 1/4))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))))
(+.f64 (hypot.f64 phi1 (-.f64 lambda1 lambda2)) (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 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 (-.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 #s(literal 1/16 binary64) (*.f64 phi1 phi1)) #s(literal -1/4 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) (*.f64 phi2 (*.f64 (+.f64 (*.f64 (*.f64 phi1 #s(literal 1/12 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.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 #s(literal 1/16 binary64) (*.f64 phi1 phi1)) #s(literal -1/4 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 #s(literal -2 binary64) phi1) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 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 (+.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)))) #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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 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 phi2) (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (*.f64 (pow.f64 (+.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)))) #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 #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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 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 (+.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)))) #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 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 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 (+.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)))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 (*.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) phi2)))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.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 (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))))) (*.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 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/4 (* (* phi1 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (*.f64 phi1 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) #s(literal 3 binary64)))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))))))))))
(* phi1 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))
(*.f64 phi1 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))
(* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))
(*.f64 phi1 (+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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)))) phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))
(* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))))
(*.f64 phi1 (+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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)))) phi1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 phi1 phi1))))))
(* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* -1/4 (* (/ (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))))
(*.f64 phi1 (+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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)))) phi1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 phi1 phi1)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 #s(literal -2 binary64) phi2) (*.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 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 3 binary64))))) (*.f64 phi1 (*.f64 phi1 phi1)))))))
(* -1 (* phi1 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))
(* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1/2 (* (/ (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (*.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 2 binary64) phi2)) phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))
(* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (*.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 2 binary64) phi2)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) phi1)) (*.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (+.f64 (*.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 2 binary64) phi2))))) phi1)))
(* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) phi1) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 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)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))) phi1)) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (/.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (+.f64 (*.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 2 binary64) phi2)))) (/.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 (+.f64 (*.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 2 binary64) phi2)) (+.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (*.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 2 binary64) phi2)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 3 binary64))))) phi1)) (*.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.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)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (*.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 2 binary64) phi2)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))) phi1)) phi1)))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.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)))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(-.f64 (*.f64 lambda1 (+.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))))) (*.f64 lambda2 (+.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))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(-.f64 (*.f64 lambda1 (+.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))))) (*.f64 lambda2 (+.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))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(-.f64 (*.f64 lambda1 (+.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))))) (*.f64 lambda2 (+.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))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))
(*.f64 lambda1 (+.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)))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(*.f64 lambda1 (+.f64 (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))) (/.f64 (*.f64 lambda2 (+.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))))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(*.f64 lambda1 (+.f64 (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))) (/.f64 (*.f64 lambda2 (+.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))))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(*.f64 lambda1 (+.f64 (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))) (/.f64 (*.f64 lambda2 (+.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))))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))
(*.f64 lambda1 (+.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)))))
(* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (/.f64 (*.f64 lambda2 (+.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))))) lambda1) (+.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))))))
(* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (/.f64 (*.f64 lambda2 (+.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))))) lambda1) (+.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))))))
(* -1 (* lambda1 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda1))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (/.f64 (*.f64 lambda2 (+.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))))) lambda1) (+.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))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))
(*.f64 lambda1 (+.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)))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(-.f64 (*.f64 lambda1 (+.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))))) (*.f64 lambda2 (+.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))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(-.f64 (*.f64 lambda1 (+.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))))) (*.f64 lambda2 (+.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))))))
(+ (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(-.f64 (*.f64 lambda1 (+.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))))) (*.f64 lambda2 (+.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))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.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)))))
(* lambda2 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (+.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))))) lambda2) (+.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))))))
(* lambda2 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (+.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))))) lambda2) (+.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))))))
(* lambda2 (+ (* -1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (+.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))))) lambda2) (+.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))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.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)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 (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))) (/.f64 (*.f64 lambda1 (+.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))))) lambda2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 (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))) (/.f64 (*.f64 lambda1 (+.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))))) lambda2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))) lambda2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 (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))) (/.f64 (*.f64 lambda1 (+.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))))) lambda2))))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* -1/4 (* phi1 (* phi2 (- lambda1 lambda2))))) lambda2)
(+.f64 lambda1 (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) phi1) (*.f64 phi2 (-.f64 lambda1 lambda2))) lambda2))
(- (+ lambda1 (* phi2 (+ (* -1/4 (* phi1 (- lambda1 lambda2))) (* -1/8 (* phi2 (- lambda1 lambda2)))))) lambda2)
(+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (-.f64 lambda1 lambda2))))) lambda2))
(- (+ lambda1 (* phi2 (+ (* -1/4 (* phi1 (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (- lambda1 lambda2)) (* 1/96 (* phi1 (* phi2 (- lambda1 lambda2))))))))) lambda2)
(+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 #s(literal 1/96 binary64) phi1) (*.f64 phi2 (-.f64 lambda1 lambda2))))))) lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(*.f64 (+.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)))) (-.f64 lambda1 lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(*.f64 (+.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)))) (-.f64 lambda1 lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(*.f64 (+.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)))) (-.f64 lambda1 lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(*.f64 (+.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)))) (-.f64 lambda1 lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(*.f64 (+.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)))) (-.f64 lambda1 lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(*.f64 (+.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)))) (-.f64 lambda1 lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(*.f64 (+.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)))) (-.f64 lambda1 lambda2))
(* (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (- lambda1 lambda2))
(*.f64 (+.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)))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))
(*.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))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) phi1)))
(* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) phi1)))
(* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) phi1)))
(* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))
(* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) phi1)))
(* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) phi1)))
(* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) phi1)))
(/ -1 lambda2)
(/.f64 #s(literal -1 binary64) lambda2)
(- (* -1 (/ lambda1 (pow lambda2 2))) (/ 1 lambda2))
(-.f64 (/.f64 (*.f64 #s(literal -1 binary64) lambda1) (*.f64 lambda2 lambda2)) (/.f64 #s(literal 1 binary64) lambda2))
(- (* lambda1 (- (* -1 (/ lambda1 (pow lambda2 3))) (/ 1 (pow lambda2 2)))) (/ 1 lambda2))
(-.f64 (*.f64 lambda1 (-.f64 (/.f64 (*.f64 #s(literal -1 binary64) lambda1) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (/.f64 #s(literal 1 binary64) (*.f64 lambda2 lambda2)))) (/.f64 #s(literal 1 binary64) lambda2))
(- (* lambda1 (- (* lambda1 (- (* -1 (/ lambda1 (pow lambda2 4))) (/ 1 (pow lambda2 3)))) (/ 1 (pow lambda2 2)))) (/ 1 lambda2))
(-.f64 (*.f64 lambda1 (-.f64 (*.f64 lambda1 (-.f64 (/.f64 (*.f64 #s(literal -1 binary64) lambda1) (pow.f64 lambda2 #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2))))) (/.f64 #s(literal 1 binary64) (*.f64 lambda2 lambda2)))) (/.f64 #s(literal 1 binary64) lambda2))
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ (+ 1 (/ lambda2 lambda1)) lambda1)
(/.f64 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(/ (- (+ 1 (/ (pow lambda2 2) (pow lambda1 2))) (* -1 (/ lambda2 lambda1))) lambda1)
(/.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) (/.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1))) lambda1)
(/ (- (+ 1 (/ (pow lambda2 3) (pow lambda1 3))) (+ (* -1 (/ lambda2 lambda1)) (* -1 (/ (pow lambda2 2) (pow lambda1 2))))) lambda1)
(/.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 lambda2 lambda1) (/.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 lambda1))) (-.f64 (/.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1) (/.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 lambda1))))) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(* -1 (/ (- (* -1 (/ lambda2 lambda1)) 1) lambda1))
(-.f64 #s(literal 0 binary64) (/.f64 (+.f64 (/.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1) #s(literal -1 binary64)) lambda1))
(* -1 (/ (- (* -1 (/ (- (/ (pow lambda2 2) lambda1) (* -1 lambda2)) lambda1)) 1) lambda1))
(-.f64 #s(literal 0 binary64) (/.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (+.f64 (/.f64 (*.f64 lambda2 lambda2) lambda1) (*.f64 #s(literal 1 binary64) lambda2)) lambda1)) #s(literal -1 binary64)) lambda1))
(* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (pow lambda2 3) lambda1)) (pow lambda2 2)) lambda1)) (* -1 lambda2)) lambda1)) 1) lambda1))
(-.f64 #s(literal 0 binary64) (/.f64 (+.f64 (/.f64 (*.f64 #s(literal -1 binary64) (*.f64 #s(literal -1 binary64) (-.f64 (/.f64 (-.f64 (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) lambda1)) (*.f64 lambda2 lambda2)) lambda1) lambda2))) lambda1) #s(literal -1 binary64)) lambda1))
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(+ (/ 1 lambda1) (/ lambda2 (pow lambda1 2)))
(+.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 lambda2 (*.f64 lambda1 lambda1)))
(+ (* lambda2 (+ (/ 1 (pow lambda1 2)) (/ lambda2 (pow lambda1 3)))) (/ 1 lambda1))
(+.f64 (/.f64 #s(literal 1 binary64) lambda1) (*.f64 lambda2 (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda1)) (/.f64 lambda2 (*.f64 lambda1 (*.f64 lambda1 lambda1))))))
(+ (* lambda2 (+ (* lambda2 (+ (/ 1 (pow lambda1 3)) (/ lambda2 (pow lambda1 4)))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))
(+.f64 (/.f64 #s(literal 1 binary64) lambda1) (*.f64 lambda2 (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda1)) (*.f64 lambda2 (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (/.f64 lambda2 (pow.f64 lambda1 #s(literal 4 binary64))))))))
(/ -1 lambda2)
(/.f64 #s(literal -1 binary64) lambda2)
(/ (- (* -1 (/ lambda1 lambda2)) 1) lambda2)
(/.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 lambda1 lambda2)) #s(literal -1 binary64)) lambda2)
(/ (- (* -1 (/ (pow lambda1 2) (pow lambda2 2))) (+ 1 (/ lambda1 lambda2))) lambda2)
(/.f64 (-.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda1 lambda1)) (*.f64 lambda2 lambda2)) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))) lambda2)
(/ (- (* -1 (/ (pow lambda1 3) (pow lambda2 3))) (+ 1 (+ (/ lambda1 lambda2) (/ (pow lambda1 2) (pow lambda2 2))))) lambda2)
(/.f64 (-.f64 (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) (/.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)))) lambda2)
(/ -1 lambda2)
(/.f64 #s(literal -1 binary64) lambda2)
(* -1 (/ (+ 1 (/ lambda1 lambda2)) lambda2))
(-.f64 #s(literal 0 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2))
(* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow lambda1 2) lambda2)) lambda1) lambda2))) lambda2))
(-.f64 #s(literal 0 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda1 lambda1)) lambda2) lambda1) lambda2)) lambda2))
(* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (pow lambda1 3) lambda2) (* -1 (pow lambda1 2))) lambda2)) lambda1) lambda2))) lambda2))
(-.f64 #s(literal 0 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.f64 (*.f64 #s(literal -1 binary64) (+.f64 (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) lambda2) (*.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda1)))) lambda2) lambda1) lambda2)) lambda2))
(* 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)
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow phi1 2)))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 phi1)))
(+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 phi1 phi1)) #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 #s(literal -1/46080 binary64) (*.f64 phi1 phi1)))) #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))
(* 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)
(* -1/4 (* phi1 phi2))
(*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2))
(* phi2 (+ (* -1/4 phi1) (* 1/96 (* phi1 (pow phi2 2)))))
(*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) phi1) (*.f64 #s(literal 1/96 binary64) (*.f64 phi1 (*.f64 phi2 phi2)))))
(* phi2 (+ (* -1/4 phi1) (* (pow phi2 2) (+ (* -1/7680 (* phi1 (pow phi2 2))) (* 1/96 phi1)))))
(*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) phi1) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 #s(literal -1/7680 binary64) (*.f64 phi1 (*.f64 phi2 phi2))) (*.f64 #s(literal 1/96 binary64) phi1)))))
(* phi2 (+ (* -1/4 phi1) (* (pow phi2 2) (+ (* 1/96 phi1) (* (pow phi2 2) (+ (* -1/7680 phi1) (* 1/1290240 (* phi1 (pow phi2 2)))))))))
(*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) phi1) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 #s(literal 1/96 binary64) phi1) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 #s(literal -1/7680 binary64) phi1) (*.f64 #s(literal 1/1290240 binary64) (*.f64 phi1 (*.f64 phi2 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)))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(*.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)))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(*.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)))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(*.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)))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(*.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)))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(*.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)))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(*.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)))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(*.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)))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(*.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)))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(*.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)))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
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 (* phi2 (+ (* -1/4 phi1) (* -1/8 phi2))))
(+.f64 #s(literal 1 binary64) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) phi1) (*.f64 #s(literal -1/8 binary64) phi2))))
(+ 1 (* phi2 (+ (* -1/4 phi1) (* phi2 (- (* 1/96 (* phi1 phi2)) 1/8)))))
(+.f64 #s(literal 1 binary64) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) phi1) (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/96 binary64) (*.f64 phi1 phi2)) #s(literal -1/8 binary64))))))
(+ (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)) (* -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)) (* -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)) (* -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)) (* -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)) (* -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)) (* -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)) (* -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))
(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)) (* -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)) (* -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))))
(* -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/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))

eval541.0ms (1.5%)

Compiler

Compiled 45735 to 4199 computations (90.8% saved)

prune547.0ms (1.5%)

Pruning

39 alts after pruning (37 fresh and 2 done)

PrunedKeptTotal
New1274271301
Fresh101020
Picked325
Done000
Total1287391326
Accuracy
100.0%
Counts
1326 → 39
Alt Table
Click to see full alt table
StatusAccuracyProgram
10.5%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
22.3%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
25.0%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
55.5%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
▶27.9%
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
13.6%
(*.f64 (fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 R lambda1))
▶12.5%
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 R lambda1))
13.6%
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 R lambda1))
12.5%
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
11.5%
(*.f64 (+.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)))) (*.f64 R lambda1))
22.6%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
▶23.7%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
9.3%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
8.1%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
39.1%
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)))
15.3%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
✓12.5%
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
55.9%
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
99.8%
(*.f64 R (hypot.f64 (/.f64 (fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
▶99.8%
(*.f64 R (hypot.f64 (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
75.7%
(*.f64 R (hypot.f64 (/.f64 (+.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)))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
41.4%
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (/.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
75.7%
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda1)) (-.f64 phi1 phi2)))
75.7%
(*.f64 R (hypot.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal -1/8 binary64) phi2))))) (-.f64 phi1 phi2)))
66.1%
(*.f64 R (hypot.f64 (+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (-.f64 lambda1 lambda2))))) lambda2)) (-.f64 phi1 phi2)))
72.5%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 phi1 phi2)))
82.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 #s(literal -1/2 binary64))))) (-.f64 phi1 phi2)))
75.7%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal -1/8 binary64) phi2)) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 phi1 phi2)))
▶85.0%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (-.f64 phi1 phi2)))
73.9%
(*.f64 R (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
22.5%
(*.f64 R (hypot.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 1 binary64))) (-.f64 phi1 phi2)))
68.9%
(*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2)))
67.7%
(*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2)))
53.3%
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
15.3%
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
10.5%
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
22.3%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
52.6%
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
✓32.0%
(*.f64 R phi2)
Compiler

Compiled 1725 to 1123 computations (34.9% saved)

simplify479.0ms (1.3%)

Algorithm
1×egg-herbie
Localize:

Found 18 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(-.f64 lambda1 lambda2)
✓cost-diff0
(*.f64 (-.f64 lambda1 lambda2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
✓cost-diff0
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (-.f64 phi1 phi2))
✓cost-diff0
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (-.f64 phi1 phi2)))
✓cost-diff0
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
✓cost-diff0
(/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
✓cost-diff256
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
✓cost-diff256
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 R lambda1))
✓cost-diff0
(*.f64 #s(literal 1/2 binary64) phi1)
✓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 R phi1)
✓cost-diff0
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
✓cost-diff0
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
✓cost-diff128
(/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
✓cost-diff128
(hypot.f64 (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2))
✓cost-diff128
(*.f64 R (hypot.f64 (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
Rules
2440×*-lowering-*.f32
2440×*-lowering-*.f64
1660×sum5-define
1512×sum3-define
1228×sum4-define
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
053358
1134355
2390355
31953355
45582355
08075355
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(* R (sqrt (+ (* (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2))) (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
R
(sqrt (+ (* (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2))) (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))
(/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))
(- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))
(* (cos (* phi2 1/2)) (cos (* phi1 1/2)))
(cos (* phi2 1/2))
(* phi2 1/2)
phi2
1/2
(cos (* phi1 1/2))
(* phi1 1/2)
phi1
(* (sin (* phi2 1/2)) (sin (* phi1 1/2)))
(sin (* phi2 1/2))
(sin (* phi1 1/2))
(/ 1 (- lambda1 lambda2))
1
(- lambda1 lambda2)
lambda1
lambda2
(- phi1 phi2)
(- 0 (* R phi1))
0
(* R phi1)
R
phi1
(* (* R lambda2) (cos (* 1/2 phi1)))
(* R lambda2)
R
lambda2
(cos (* 1/2 phi1))
(* 1/2 phi1)
1/2
phi1
(* (/ 1 (/ 1 (cos (/ (+ phi1 phi2) 2)))) (* R lambda1))
(/ 1 (/ 1 (cos (/ (+ phi1 phi2) 2))))
1
(/ 1 (cos (/ (+ phi1 phi2) 2)))
(cos (/ (+ phi1 phi2) 2))
(/ (+ phi1 phi2) 2)
(+ phi1 phi2)
phi1
phi2
2
(* R lambda1)
R
lambda1
(* R (sqrt (+ (* (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* (- phi1 phi2) (- phi1 phi2)))))
R
(sqrt (+ (* (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* (- phi1 phi2) (- phi1 phi2))))
(* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))
(- lambda1 lambda2)
lambda1
lambda2
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
phi1
(+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))
(* -1/2 (sin (* 1/2 phi2)))
-1/2
(sin (* 1/2 phi2))
(* 1/2 phi2)
1/2
phi2
(/ (cos (* 1/2 phi2)) phi1)
(cos (* 1/2 phi2))
(- phi1 phi2)
Outputs
(* R (sqrt (+ (* (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2))) (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
R
(sqrt (+ (* (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2))) (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))
(hypot.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2))
(/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 lambda1 lambda2))
(- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* (cos (* phi2 1/2)) (cos (* phi1 1/2)))
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos (* phi2 1/2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(* phi2 1/2)
(*.f64 phi2 #s(literal 1/2 binary64))
phi2
1/2
#s(literal 1/2 binary64)
(cos (* phi1 1/2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(* phi1 1/2)
(*.f64 #s(literal 1/2 binary64) phi1)
phi1
(* (sin (* phi2 1/2)) (sin (* phi1 1/2)))
(*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin (* phi2 1/2))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(sin (* phi1 1/2))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(/ 1 (- lambda1 lambda2))
(/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
1
#s(literal 1 binary64)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(- phi1 phi2)
(-.f64 phi1 phi2)
(- 0 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
0
#s(literal 0 binary64)
(* R phi1)
(*.f64 R phi1)
R
phi1
(* (* R lambda2) (cos (* 1/2 phi1)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R lambda2))
(* R lambda2)
(*.f64 R lambda2)
R
lambda2
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
1/2
#s(literal 1/2 binary64)
phi1
(* (/ 1 (/ 1 (cos (/ (+ phi1 phi2) 2)))) (* R lambda1))
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (*.f64 R lambda1))
(/ 1 (/ 1 (cos (/ (+ phi1 phi2) 2))))
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))
1
#s(literal 1 binary64)
(/ 1 (cos (/ (+ phi1 phi2) 2)))
(/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(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)
(* R lambda1)
(*.f64 R lambda1)
R
lambda1
(* R (sqrt (+ (* (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* (- phi1 phi2) (- phi1 phi2)))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64))))))
R
(sqrt (+ (* (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* (- phi1 phi2) (- phi1 phi2))))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))))
(* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))
(*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64))))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
phi1
(+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))
(+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1))
(* -1/2 (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))
-1/2
#s(literal -1/2 binary64)
(sin (* 1/2 phi2))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(* 1/2 phi2)
(*.f64 phi2 #s(literal 1/2 binary64))
1/2
#s(literal 1/2 binary64)
phi2
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(- phi1 phi2)
(-.f64 phi1 phi2)

localize1.1s (3.1%)

Localize:

Found 18 expressions of interest:

NewMetricScoreProgram
✓accuracy99.8%
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
✓accuracy99.8%
(*.f64 (-.f64 lambda1 lambda2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
✓accuracy99.7%
(*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
✓accuracy96.6%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (-.f64 phi1 phi2)))
✓accuracy99.8%
(/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
✓accuracy99.7%
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 R lambda1))
✓accuracy99.6%
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
✓accuracy76.9%
(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.8%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 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 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
✓accuracy99.8%
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
✓accuracy99.7%
(*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
✓accuracy99.6%
(/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
Results
789.0ms177×1valid
122.0ms79×0valid
Compiler

Compiled 387 to 49 computations (87.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 569.0ms
ival-mult: 148.0ms (26% of total)
ival-cos: 106.0ms (18.6% of total)
ival-div: 68.0ms (12% of total)
ival-sin: 65.0ms (11.4% of total)
backward-pass: 63.0ms (11.1% of total)
compiled-spec: 61.0ms (10.7% of total)
ival-sub: 21.0ms (3.7% of total)
ival-add: 20.0ms (3.5% of total)
ival-sqrt: 15.0ms (2.6% of total)
const: 3.0ms (0.5% of total)

series432.0ms (1.2%)

Counts
22 → 708
Calls
Call 1
Inputs
#<alt (* R (sqrt (+ (* (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2))) (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))>
#<alt (sqrt (+ (* (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2))) (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))>
#<alt (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))>
#<alt (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))>
#<alt (- 0 (* R phi1))>
#<alt (* R phi1)>
#<alt (* (* R lambda2) (cos (* 1/2 phi1)))>
#<alt (* R lambda2)>
#<alt (cos (* 1/2 phi1))>
#<alt (* 1/2 phi1)>
#<alt (* (/ 1 (/ 1 (cos (/ (+ phi1 phi2) 2)))) (* R lambda1))>
#<alt (/ 1 (/ 1 (cos (/ (+ phi1 phi2) 2))))>
#<alt (/ 1 (cos (/ (+ phi1 phi2) 2)))>
#<alt (cos (/ (+ phi1 phi2) 2))>
#<alt (* R (sqrt (+ (* (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* (- phi1 phi2) (- phi1 phi2)))))>
#<alt (sqrt (+ (* (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* (- phi1 phi2) (- phi1 phi2))))>
#<alt (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))>
#<alt (- lambda1 lambda2)>
#<alt (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))>
#<alt (* (cos (* phi2 1/2)) (cos (* phi1 1/2)))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (/ (cos (* 1/2 phi2)) 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 (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 (* 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 (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 (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 (* (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 (- (* (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))>
#<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 (* -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 (* 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 (* 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 (* 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 (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 (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 (cos (* 1/2 phi2)))>
#<alt (+ (* 1/2 (/ (* phi1 (sin (* 1/2 phi2))) (pow (cos (* 1/2 phi2)) 2))) (/ 1 (cos (* 1/2 phi2))))>
#<alt (+ (* phi1 (- (* phi1 (- (* 1/8 (/ 1 (cos (* 1/2 phi2)))) (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 3))))) (* -1/2 (/ (sin (* 1/2 phi2)) (pow (cos (* 1/2 phi2)) 2))))) (/ 1 (cos (* 1/2 phi2))))>
#<alt (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/2 (/ (* (sin (* 1/2 phi2)) (- (* 1/8 (/ 1 (cos (* 1/2 phi2)))) (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 3))))) (cos (* 1/2 phi2)))) (+ (* -1/16 (/ (sin (* 1/2 phi2)) (pow (cos (* 1/2 phi2)) 2))) (* 1/48 (/ (sin (* 1/2 phi2)) (pow (cos (* 1/2 phi2)) 2))))))) (* 1/8 (/ 1 (cos (* 1/2 phi2))))) (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 3))))) (* -1/2 (/ (sin (* 1/2 phi2)) (pow (cos (* 1/2 phi2)) 2))))) (/ 1 (cos (* 1/2 phi2))))>
#<alt (/ 1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (/ 1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (/ 1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (/ 1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (/ 1 (cos (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (/ 1 (cos (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (/ 1 (cos (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (/ 1 (cos (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (/ 1 (cos (* 1/2 phi1)))>
#<alt (+ (* 1/2 (/ (* phi2 (sin (* 1/2 phi1))) (pow (cos (* 1/2 phi1)) 2))) (/ 1 (cos (* 1/2 phi1))))>
#<alt (+ (* phi2 (- (* phi2 (- (* 1/8 (/ 1 (cos (* 1/2 phi1)))) (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 3))))) (* -1/2 (/ (sin (* 1/2 phi1)) (pow (cos (* 1/2 phi1)) 2))))) (/ 1 (cos (* 1/2 phi1))))>
#<alt (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/2 (/ (* (sin (* 1/2 phi1)) (- (* 1/8 (/ 1 (cos (* 1/2 phi1)))) (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 3))))) (cos (* 1/2 phi1)))) (+ (* -1/16 (/ (sin (* 1/2 phi1)) (pow (cos (* 1/2 phi1)) 2))) (* 1/48 (/ (sin (* 1/2 phi1)) (pow (cos (* 1/2 phi1)) 2))))))) (* 1/8 (/ 1 (cos (* 1/2 phi1))))) (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 3))))) (* -1/2 (/ (sin (* 1/2 phi1)) (pow (cos (* 1/2 phi1)) 2))))) (/ 1 (cos (* 1/2 phi1))))>
#<alt (/ 1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (/ 1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (/ 1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (/ 1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (/ 1 (cos (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (/ 1 (cos (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (/ 1 (cos (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (/ 1 (cos (* 1/2 (- phi1 (* -1 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 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 (* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))))>
#<alt (* -1 (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda1)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda1)) (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda1)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))))>
#<alt (* -1 (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda2)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda2)) (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda2)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))>
#<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 (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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/4 (* (* R (* phi1 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) 3))))) (* 1/2 (* (* R (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))>
#<alt (* phi1 (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))>
#<alt (* phi1 (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (* phi1 (+ (* -1/4 (* (/ (* R (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) (pow phi1 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))>
#<alt (* -1 (* (* R phi1) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))>
#<alt (* -1 (* phi1 (+ (* -1/2 (* (/ (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* R (* (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* 1/2 (* (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))>
#<alt (+ (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* 1/12 (* phi1 (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 2))) (* 1/2 (/ (* R (* (pow phi1 3) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/2 (/ (* R (* (pow phi1 3) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))>
#<alt (* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<alt (* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))>
#<alt (* -1 (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda1)) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<alt (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))>
#<alt (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<alt (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))>
#<alt (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda2)) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<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 (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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/4 (* (* phi1 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))))>
#<alt (* phi1 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))>
#<alt (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))>
#<alt (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))))>
#<alt (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* -1/4 (* (/ (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))))>
#<alt (* -1 (* phi1 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))>
#<alt (* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1/2 (* (/ (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))))>
#<alt (* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) phi1)))))>
#<alt (* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) phi1) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 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)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))) phi1)) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) phi1)))))>
#<alt (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))>
#<alt (+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))>
#<alt (+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))>
#<alt (+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (* (* phi2 (- (* 1/12 (* phi1 (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))) (* 1/2 (/ (* (pow phi1 3) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* (pow phi1 3) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))>
#<alt (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))>
#<alt (* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1))))>
#<alt (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))>
#<alt (+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (* lambda2 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)))>
#<alt (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))>
#<alt (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))>
#<alt (- lambda1 lambda2)>
#<alt (- (+ lambda1 (* -1/4 (* phi1 (* phi2 (- lambda1 lambda2))))) lambda2)>
#<alt (- (+ lambda1 (* phi2 (+ (* -1/4 (* phi1 (- lambda1 lambda2))) (* -1/8 (* phi2 (- lambda1 lambda2)))))) lambda2)>
#<alt (- (+ lambda1 (* phi2 (+ (* -1/4 (* phi1 (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (- lambda1 lambda2)) (* 1/96 (* phi1 (* phi2 (- lambda1 lambda2))))))))) lambda2)>
#<alt (* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))>
#<alt (* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))>
#<alt (* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))>
#<alt (* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))>
#<alt (* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))>
#<alt (* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))>
#<alt (* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))>
#<alt (* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- 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/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/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 (cos (* 1/2 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (* -1/2 (* phi1 (sin (* 1/2 phi2))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt 1>
#<alt (+ 1 (* -1/4 (* phi1 phi2)))>
#<alt (+ 1 (* phi2 (+ (* -1/4 phi1) (* -1/8 phi2))))>
#<alt (+ 1 (* phi2 (+ (* -1/4 phi1) (* phi2 (- (* 1/96 (* phi1 phi2)) 1/8)))))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))>
#<alt (/ 1 phi1)>
#<alt (+ (* -1/8 (/ (pow phi2 2) phi1)) (/ 1 phi1))>
#<alt (+ (* (pow phi2 2) (- (* 1/384 (/ (pow phi2 2) phi1)) (* 1/8 (/ 1 phi1)))) (/ 1 phi1))>
#<alt (+ (* (pow phi2 2) (- (* (pow phi2 2) (+ (* -1/46080 (/ (pow phi2 2) phi1)) (* 1/384 (/ 1 phi1)))) (* 1/8 (/ 1 phi1)))) (/ 1 phi1))>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
#<alt (/ (cos (* 1/2 phi2)) phi1)>
Calls

177 calls:

TimeVariablePointExpression
74.0ms
R
@-inf
(* R (sqrt (+ (* (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2))) (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
38.0ms
lambda2
@-inf
(* R (sqrt (+ (* (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2))) (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
23.0ms
lambda2
@0
(* R (sqrt (+ (* (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2))) (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
18.0ms
phi2
@inf
(sqrt (+ (* (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2))) (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))
10.0ms
lambda1
@-inf
(* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))

rewrite930.0ms (2.6%)

Algorithm
1×batch-egg-rewrite
Rules
3020×*-lowering-*.f32
3020×*-lowering-*.f64
3010×fma-lowering-fma.f32
3010×fma-lowering-fma.f64
1932×+-lowering-+.f64
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
053280
1289205
22563205
08168205
Stop Event
1×iter limit
1×node limit
Counts
22 → 567
Calls
Call 1
Inputs
(* R (sqrt (+ (* (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2))) (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(sqrt (+ (* (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2))) (/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))
(/ (- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))) (/ 1 (- lambda1 lambda2)))
(- (* (cos (* phi2 1/2)) (cos (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))
(- 0 (* R phi1))
(* R phi1)
(* (* R lambda2) (cos (* 1/2 phi1)))
(* R lambda2)
(cos (* 1/2 phi1))
(* 1/2 phi1)
(* (/ 1 (/ 1 (cos (/ (+ phi1 phi2) 2)))) (* R lambda1))
(/ 1 (/ 1 (cos (/ (+ phi1 phi2) 2))))
(/ 1 (cos (/ (+ phi1 phi2) 2)))
(cos (/ (+ phi1 phi2) 2))
(* R (sqrt (+ (* (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* (- phi1 phi2) (- phi1 phi2)))))
(sqrt (+ (* (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* (- phi1 phi2) (- phi1 phi2))))
(* (- lambda1 lambda2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))
(- lambda1 lambda2)
(* (sin (* phi2 1/2)) (sin (* phi1 1/2)))
(* (cos (* phi2 1/2)) (cos (* phi1 1/2)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(/ (cos (* 1/2 phi2)) phi1)
Outputs
(*.f64 R (hypot.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
(*.f64 (hypot.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)) R)
(exp.f64 (*.f64 (log.f64 (+.f64 (*.f64 (+.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)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(hypot.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2))
(hypot.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))
(sqrt.f64 (+.f64 (*.f64 (+.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)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(/.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 6 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.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)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (sqrt.f64 (-.f64 (*.f64 (+.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)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(pow.f64 (+.f64 (*.f64 (+.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)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (+.f64 (*.f64 (+.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)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (*.f64 (+.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)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 (+.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 6 binary64))) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.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)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (+.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)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)) (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))))
(+.f64 (*.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)))
(+.f64 (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(+.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64))))) (fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64))))) (fma.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)))))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64))))) (fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64))))) (fma.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)))))
(+.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64))))) (fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64))))) (fma.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)))))
(+.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64))))) (fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64))))) (fma.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)))))
(+.f64 (fma.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (fma.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (fma.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (fma.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64))))) (fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64))))) (fma.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)))))
(+.f64 (fma.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (fma.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (fma.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (fma.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64))))) (fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64))))) (fma.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)))))
(+.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64))))) (fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (*.f64 (-.f64 lambda1 lambda2) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64))))) (fma.f64 (neg.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (*.f64 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)))))
(+.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64))))) (fma.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)))))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))))
(fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.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 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (-.f64 lambda1 lambda2) (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))))
(fma.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))))
(fma.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))))
(fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))))
(neg.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.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 1 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (*.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (*.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))) (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(/.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 lambda1 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))
(*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(*.f64 (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (*.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 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(*.f64 (pow.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(+.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.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))))))) (fma.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 #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 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (*.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))))))) (fma.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 #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 (fma.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) (neg.f64 (*.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))))))) (fma.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 #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)))))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal -2 binary64)))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.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 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.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 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.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) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (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 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.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) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.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) (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 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (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 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (*.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 #s(literal -1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (*.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (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))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(/.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 (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 (-.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 (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 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (+.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)))))) (-.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (-.f64 (+.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)))))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (*.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 binary64))
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(*.f64 #s(literal -1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(*.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) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(*.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 1 binary64)))
(*.f64 (pow.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 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(+.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) #s(literal 0 binary64))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 R phi1)) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (*.f64 R phi1)))
(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) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))) (/.f64 #s(literal 1 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) R) phi1 #s(literal 0 binary64))
(neg.f64 (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (*.f64 R phi1))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))
(/.f64 (+.f64 #s(literal 0 binary64) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
(pow.f64 (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))) #s(literal -1 binary64))
(*.f64 R (-.f64 #s(literal 0 binary64) phi1))
(*.f64 phi1 (-.f64 #s(literal 0 binary64) R))
(*.f64 #s(literal -1 binary64) (*.f64 R phi1))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) R)
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))) (/.f64 #s(literal 1 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 R phi1)))
(*.f64 (-.f64 #s(literal 0 binary64) R) phi1)
(+.f64 #s(literal 0 binary64) (*.f64 R phi1))
(+.f64 (*.f64 R phi1) #s(literal 0 binary64))
(fma.f64 R phi1 #s(literal 0 binary64))
(fma.f64 phi1 R #s(literal 0 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))
(/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))
(*.f64 R phi1)
(*.f64 phi1 R)
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R lambda2))
(*.f64 lambda2 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) R)
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R) lambda2)
(*.f64 R lambda2)
(*.f64 lambda2 R)
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 R lambda1)))
(/.f64 (*.f64 R lambda1) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 (*.f64 (*.f64 R lambda1) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 R lambda1)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 (/.f64 (*.f64 R lambda1) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 R lambda1)) #s(literal -1 binary64))
(*.f64 R (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (*.f64 R lambda1))
(*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (*.f64 R lambda1)))
(*.f64 lambda1 (*.f64 R (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(*.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) lambda1)
(*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) lambda1) R)
(*.f64 (/.f64 (*.f64 R lambda1) #s(literal 1 binary64)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(*.f64 (/.f64 (*.f64 R lambda1) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(+.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.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))))))) (fma.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 #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 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (*.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))))))) (fma.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 #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 (fma.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) (neg.f64 (*.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))))))) (fma.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 #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)))))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal -2 binary64)))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.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 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.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 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.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) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (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 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.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) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.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) (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 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (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 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (*.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 #s(literal -1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (*.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (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))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(/.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 (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 (-.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 (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 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (+.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)))))) (-.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (-.f64 (+.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)))))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (*.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 binary64))
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(*.f64 #s(literal -1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(*.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) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(*.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 1 binary64)))
(*.f64 (pow.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 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 1 binary64)))
(neg.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -1/2 binary64)) (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal -1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal -1 binary64)))
(*.f64 (pow.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 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal -1 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal -1 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 1 binary64)))
(+.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.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))))))) (fma.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 #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 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (*.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))))))) (fma.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 #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 (fma.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) (neg.f64 (*.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))))))) (fma.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 #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)))))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal -2 binary64)))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) (/.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.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 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.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 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.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) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (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 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.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) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.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) (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 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (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 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (*.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 #s(literal -1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (*.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (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))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(/.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 (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 (-.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 (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 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (+.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)))))) (-.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (-.f64 (+.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)))))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (*.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 binary64))
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))
(*.f64 #s(literal -1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(*.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) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(*.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 1 binary64)))
(*.f64 (pow.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 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2)))))
(*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2)))) R)
(exp.f64 (*.f64 (log.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))))
(hypot.f64 (-.f64 phi1 phi2) (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(hypot.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2))
(hypot.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)) (-.f64 phi1 phi2))
(hypot.f64 (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))))
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (sqrt.f64 (-.f64 (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))
(+.f64 (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1))) lambda1) (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1))) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (*.f64 (*.f64 phi1 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) (*.f64 (*.f64 phi1 (-.f64 lambda1 lambda2)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)))
(+.f64 (*.f64 (*.f64 phi1 (-.f64 lambda1 lambda2)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (*.f64 (*.f64 phi1 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))))
(+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (*.f64 (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (-.f64 lambda1 lambda2)))
(+.f64 (*.f64 lambda1 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)))))
(+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (*.f64 phi1 (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (*.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 phi1 (-.f64 lambda1 lambda2))))
(fma.f64 lambda1 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)))))
(fma.f64 (-.f64 lambda1 lambda2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 phi1 (-.f64 lambda1 lambda2)) (*.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (*.f64 phi1 (-.f64 lambda1 lambda2))))
(fma.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (*.f64 phi1 (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 phi1 (-.f64 lambda1 lambda2))))
(fma.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1))) lambda1 (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1)) (-.f64 lambda1 lambda2) (*.f64 (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (-.f64 lambda1 lambda2)))
(fma.f64 (*.f64 phi1 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 (*.f64 phi1 (-.f64 lambda1 lambda2)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)))
(fma.f64 (*.f64 phi1 (-.f64 lambda1 lambda2)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (*.f64 (*.f64 phi1 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))))
(/.f64 (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (*.f64 phi1 (-.f64 lambda1 lambda2)) (+.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) #s(literal 3 binary64)))) (+.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (-.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (*.f64 (*.f64 phi1 (-.f64 lambda1 lambda2)) (-.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 phi1 phi1)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)))) (+.f64 lambda1 lambda2))
(*.f64 phi1 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (-.f64 lambda1 lambda2)))
(*.f64 (-.f64 lambda1 lambda2) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1))))
(*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (*.f64 phi1 (-.f64 lambda1 lambda2)))
(*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1))) (-.f64 lambda1 lambda2))
(*.f64 (*.f64 phi1 (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1))) phi1)
(+.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))
(+.f64 (-.f64 #s(literal 0 binary64) lambda2) lambda1)
(exp.f64 (*.f64 (log.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(-.f64 lambda1 lambda2)
(-.f64 (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)))
(-.f64 (/.f64 lambda1 #s(literal 1 binary64)) (/.f64 lambda2 #s(literal 1 binary64)))
(fma.f64 #s(literal -1 binary64) lambda2 lambda1)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 lambda2) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(/.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (neg.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2)))))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 #s(literal 0 binary64) lambda2))) (-.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2)))
(pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 lambda1 lambda2) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))
(*.f64 #s(literal -1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(*.f64 (pow.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(-.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #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))) (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 2 binary64))
(/.f64 (neg.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))
(pow.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 -1 binary64))
(*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/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 #s(literal 1 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 (+.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 (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 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 binary64))
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/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 1/2 binary64))
(+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1)) (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1)))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) phi1) phi1) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1)))
(fma.f64 phi1 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 phi1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1)))
(fma.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1) (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) phi1 (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) phi1 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1)))
(fma.f64 (*.f64 phi1 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal -1/2 binary64) (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) phi1) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1)))
(/.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 3 binary64)) (pow.f64 (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1))) (-.f64 (*.f64 (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1)) (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1))) (*.f64 (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phi1)) (/.f64 phi1 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))
(/.f64 (*.f64 phi1 (+.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) #s(literal 3 binary64)))) (+.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (-.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (*.f64 phi1 (-.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 phi1 phi1)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)))
(/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) #s(literal 3 binary64))) phi1) (+.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (-.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 phi1 phi1))) phi1) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)))
(*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) phi1)
(exp.f64 (*.f64 (log.f64 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal -1 binary64)))
(neg.f64 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) phi1)))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi1))
(/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)
(/.f64 #s(literal 1 binary64) (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) phi1)
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (neg.f64 (-.f64 #s(literal 0 binary64) phi1)))
(pow.f64 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) phi1)))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal -1 binary64)))

simplify1.4s (3.9%)

Algorithm
1×egg-herbie
Rules
7984×*-lowering-*.f32
7984×*-lowering-*.f64
2690×+-lowering-+.f64
2690×+-lowering-+.f32
1824×*-commutative
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
0161823189
1574722789
0813822789
Stop Event
1×iter limit
1×node limit
Counts
708 → 708
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 (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)))))
(* 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))))))))
(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)))))
(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))))))
(* (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 (- (* (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))
(+ (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))))
(* -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)
(* 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))
(* 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)
(* 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 (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)))))
(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 (cos (* 1/2 phi2)))
(+ (* 1/2 (/ (* phi1 (sin (* 1/2 phi2))) (pow (cos (* 1/2 phi2)) 2))) (/ 1 (cos (* 1/2 phi2))))
(+ (* phi1 (- (* phi1 (- (* 1/8 (/ 1 (cos (* 1/2 phi2)))) (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 3))))) (* -1/2 (/ (sin (* 1/2 phi2)) (pow (cos (* 1/2 phi2)) 2))))) (/ 1 (cos (* 1/2 phi2))))
(+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/2 (/ (* (sin (* 1/2 phi2)) (- (* 1/8 (/ 1 (cos (* 1/2 phi2)))) (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 3))))) (cos (* 1/2 phi2)))) (+ (* -1/16 (/ (sin (* 1/2 phi2)) (pow (cos (* 1/2 phi2)) 2))) (* 1/48 (/ (sin (* 1/2 phi2)) (pow (cos (* 1/2 phi2)) 2))))))) (* 1/8 (/ 1 (cos (* 1/2 phi2))))) (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 3))))) (* -1/2 (/ (sin (* 1/2 phi2)) (pow (cos (* 1/2 phi2)) 2))))) (/ 1 (cos (* 1/2 phi2))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/ 1 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(/ 1 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(/ 1 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(/ 1 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(/ 1 (cos (* 1/2 phi1)))
(+ (* 1/2 (/ (* phi2 (sin (* 1/2 phi1))) (pow (cos (* 1/2 phi1)) 2))) (/ 1 (cos (* 1/2 phi1))))
(+ (* phi2 (- (* phi2 (- (* 1/8 (/ 1 (cos (* 1/2 phi1)))) (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 3))))) (* -1/2 (/ (sin (* 1/2 phi1)) (pow (cos (* 1/2 phi1)) 2))))) (/ 1 (cos (* 1/2 phi1))))
(+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/2 (/ (* (sin (* 1/2 phi1)) (- (* 1/8 (/ 1 (cos (* 1/2 phi1)))) (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 3))))) (cos (* 1/2 phi1)))) (+ (* -1/16 (/ (sin (* 1/2 phi1)) (pow (cos (* 1/2 phi1)) 2))) (* 1/48 (/ (sin (* 1/2 phi1)) (pow (cos (* 1/2 phi1)) 2))))))) (* 1/8 (/ 1 (cos (* 1/2 phi1))))) (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 3))))) (* -1/2 (/ (sin (* 1/2 phi1)) (pow (cos (* 1/2 phi1)) 2))))) (/ 1 (cos (* 1/2 phi1))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/ 1 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(/ 1 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(/ 1 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(/ 1 (cos (* 1/2 (- phi1 (* -1 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 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))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))))
(* -1 (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda1)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda1)) (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda1)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(* R (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))))
(* -1 (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda2)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda2)) (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda2)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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/4 (* (* R (* phi1 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) 3))))) (* 1/2 (* (* R (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))
(* phi1 (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))
(* phi1 (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(* phi1 (+ (* -1/4 (* (/ (* R (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) (pow phi1 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))
(* -1 (* (* R phi1) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))
(* -1 (* phi1 (+ (* -1/2 (* (/ (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(* -1 (* phi1 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(* -1 (* phi1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* R (* (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* 1/2 (* (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))
(+ (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))
(+ (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* 1/12 (* phi1 (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 2))) (* 1/2 (/ (* R (* (pow phi1 3) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/2 (/ (* R (* (pow phi1 3) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))
(* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(* -1 (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(* -1 (* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda1)) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))
(* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda2)) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(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 (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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/4 (* (* phi1 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))))
(* phi1 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))
(* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))
(* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))))
(* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* -1/4 (* (/ (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))))
(* -1 (* phi1 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))
(* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1/2 (* (/ (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))))
(* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) phi1)))))
(* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) phi1) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 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)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))) phi1)) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) phi1)))))
(sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))
(+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))
(+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))
(+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (* (* phi2 (- (* 1/12 (* phi1 (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))) (* 1/2 (/ (* (pow phi1 3) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* (pow phi1 3) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))
(* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))
(* -1 (* lambda1 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1))))
(* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))
(+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(* lambda2 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)))
(* lambda2 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)))
(* lambda2 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)))
(* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(+ (* -1/2 (* phi1 (* (sin (* 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)))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))
(* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))
(* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))
(* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))
(* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))
(* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))
(* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))
(* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))
(- lambda1 lambda2)
(- (+ lambda1 (* -1/4 (* phi1 (* phi2 (- lambda1 lambda2))))) lambda2)
(- (+ lambda1 (* phi2 (+ (* -1/4 (* phi1 (- lambda1 lambda2))) (* -1/8 (* phi2 (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* phi2 (+ (* -1/4 (* phi1 (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (- lambda1 lambda2)) (* 1/96 (* phi1 (* phi2 (- lambda1 lambda2))))))))) lambda2)
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- 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/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/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)))
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))
(* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))
(* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))
1
(+ 1 (* -1/4 (* phi1 phi2)))
(+ 1 (* phi2 (+ (* -1/4 phi1) (* -1/8 phi2))))
(+ 1 (* phi2 (+ (* -1/4 phi1) (* phi2 (- (* 1/96 (* phi1 phi2)) 1/8)))))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(/ 1 phi1)
(+ (* -1/8 (/ (pow phi2 2) phi1)) (/ 1 phi1))
(+ (* (pow phi2 2) (- (* 1/384 (/ (pow phi2 2) phi1)) (* 1/8 (/ 1 phi1)))) (/ 1 phi1))
(+ (* (pow phi2 2) (- (* (pow phi2 2) (+ (* -1/46080 (/ (pow phi2 2) phi1)) (* 1/384 (/ 1 phi1)))) (* 1/8 (/ 1 phi1)))) (/ 1 phi1))
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/ (cos (* 1/2 phi2)) 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 (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 (*.f64 #s(literal 1/2 binary64) (*.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)))))) (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 (/.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))) #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 #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 (/.f64 (*.f64 R (*.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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))))))
(* -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 (- 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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 (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 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 #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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.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 (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 (*.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 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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))) (*.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 (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 #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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.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 (*.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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.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))))))))))))))))
(* 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 (- 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 (*.f64 R 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 R (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 R (*.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)))) (*.f64 phi1 (*.f64 phi1 phi1))) (/.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 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 (- 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 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))
(* 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 (*.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 (*.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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda1 lambda1)))) (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (/.f64 (*.f64 (*.f64 R lambda2) (*.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 (*.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 R (*.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 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 lambda2 lambda2)) (/.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))))))) (/.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 lambda2 lambda2)) (/.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))))))) (/.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))
(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 (*.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 (*.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 (*.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 (/.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))) #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))))))))))))
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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 (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 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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.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 (-.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 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 (*.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 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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.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 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 (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 #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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.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 (*.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))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 (+ 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))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (-.f64 #s(literal 0 binary64) 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)))
(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 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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 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)) (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 (*.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 (*.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 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)) (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 lambda1 (*.f64 lambda1 lambda1))) (/.f64 (*.f64 lambda2 (*.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 (*.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 #s(literal -1/2 binary64) (/.f64 (/.f64 (*.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))))))) 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 (-.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 (*.f64 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 (-.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)))) (neg.f64 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)))
(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 (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 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 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 (*.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 #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 #s(literal 1/2 binary64) (/.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 #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 #s(literal -1/2 binary64) (/.f64 (/.f64 (*.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))))))) 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 (*.f64 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 (-.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))
(* (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 phi2 #s(literal -1/8 binary64)) (*.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)))))
(* -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))
(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 phi2 #s(literal -1/8 binary64)) (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))))
(* -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)
(* 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/46080 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 (*.f64 R lambda2) #s(literal 1/384 binary64)))))))
(* 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))
(* 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)
(* 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 (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))))
(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 phi2 #s(literal -1/8 binary64)) (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 (cos (* 1/2 phi2)))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* 1/2 (/ (* phi1 (sin (* 1/2 phi2))) (pow (cos (* 1/2 phi2)) 2))) (/ 1 (cos (* 1/2 phi2))))
(+.f64 (/.f64 #s(literal 1 binary64) (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))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (- (* phi1 (- (* 1/8 (/ 1 (cos (* 1/2 phi2)))) (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 3))))) (* -1/2 (/ (sin (* 1/2 phi2)) (pow (cos (* 1/2 phi2)) 2))))) (/ 1 (cos (* 1/2 phi2))))
(+.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (/.f64 #s(literal 1/8 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/4 binary64) (/.f64 (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 3 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))
(+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/2 (/ (* (sin (* 1/2 phi2)) (- (* 1/8 (/ 1 (cos (* 1/2 phi2)))) (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 3))))) (cos (* 1/2 phi2)))) (+ (* -1/16 (/ (sin (* 1/2 phi2)) (pow (cos (* 1/2 phi2)) 2))) (* 1/48 (/ (sin (* 1/2 phi2)) (pow (cos (* 1/2 phi2)) 2))))))) (* 1/8 (/ 1 (cos (* 1/2 phi2))))) (* -1/4 (/ (pow (sin (* 1/2 phi2)) 2) (pow (cos (* 1/2 phi2)) 3))))) (* -1/2 (/ (sin (* 1/2 phi2)) (pow (cos (* 1/2 phi2)) 2))))) (/ 1 (cos (* 1/2 phi2))))
(+.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (+.f64 (/.f64 #s(literal 1/8 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/4 binary64) (/.f64 (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 3 binary64))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal -1/24 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (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 3 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 phi1)))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* 1/2 (/ (* phi2 (sin (* 1/2 phi1))) (pow (cos (* 1/2 phi1)) 2))) (/ 1 (cos (* 1/2 phi1))))
(+.f64 (/.f64 #s(literal 1 binary64) (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))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (* phi2 (- (* phi2 (- (* 1/8 (/ 1 (cos (* 1/2 phi1)))) (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 3))))) (* -1/2 (/ (sin (* 1/2 phi1)) (pow (cos (* 1/2 phi1)) 2))))) (/ 1 (cos (* 1/2 phi1))))
(+.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (/.f64 #s(literal 1/8 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/4 binary64) (/.f64 (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 3 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))
(+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/2 (/ (* (sin (* 1/2 phi1)) (- (* 1/8 (/ 1 (cos (* 1/2 phi1)))) (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 3))))) (cos (* 1/2 phi1)))) (+ (* -1/16 (/ (sin (* 1/2 phi1)) (pow (cos (* 1/2 phi1)) 2))) (* 1/48 (/ (sin (* 1/2 phi1)) (pow (cos (* 1/2 phi1)) 2))))))) (* 1/8 (/ 1 (cos (* 1/2 phi1))))) (* -1/4 (/ (pow (sin (* 1/2 phi1)) 2) (pow (cos (* 1/2 phi1)) 3))))) (* -1/2 (/ (sin (* 1/2 phi1)) (pow (cos (* 1/2 phi1)) 2))))) (/ 1 (cos (* 1/2 phi1))))
(+.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (/.f64 #s(literal 1/8 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/4 binary64) (/.f64 (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 3 binary64))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1/24 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (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 3 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 (+ phi1 phi2))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/ 1 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 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 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 phi2 #s(literal -1/8 binary64)) (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)))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))
(* R (sqrt (+ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))
(* R (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 R lambda1) (*.f64 (*.f64 lambda2 (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) 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 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (*.f64 R (*.f64 (*.f64 lambda2 (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 (*.f64 (*.f64 lambda1 lambda2) (*.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) 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 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (*.f64 R (*.f64 (*.f64 lambda2 (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))
(* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(*.f64 R (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 lambda1 (-.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 R (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(*.f64 lambda1 (-.f64 (+.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) (/.f64 (*.f64 R (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))))
(*.f64 lambda1 (-.f64 (+.f64 (+.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) (/.f64 (*.f64 R (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) lambda1)))
(* -1 (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 R (*.f64 (neg.f64 (*.f64 lambda1 phi1)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(*.f64 (-.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 R (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda1)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(*.f64 (-.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (+.f64 (*.f64 R (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda1)) (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda1)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(*.f64 (-.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (-.f64 (*.f64 R (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (*.f64 (/.f64 R phi1) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))))) lambda1)) lambda1)) (neg.f64 lambda1))
(* R (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 R lambda1) (*.f64 (*.f64 lambda2 (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) 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 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (*.f64 R (*.f64 (*.f64 lambda1 (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 (*.f64 (*.f64 lambda1 lambda2) (*.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) 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 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (*.f64 R (-.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (*.f64 R (*.f64 (*.f64 lambda1 (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))
(* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(*.f64 R (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 lambda2 (-.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 R (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(*.f64 lambda2 (-.f64 (+.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 (*.f64 lambda2 lambda2) phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) (/.f64 (*.f64 R (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))))
(*.f64 lambda2 (-.f64 (+.f64 (+.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 (*.f64 lambda2 lambda2) phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) (/.f64 (*.f64 R (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) lambda2)))
(* -1 (* R (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 R (*.f64 (neg.f64 (*.f64 lambda2 phi1)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(*.f64 (-.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 R (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda2)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(*.f64 (-.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (+.f64 (*.f64 R (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda2)) (* R (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda2)) (* R (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(*.f64 (-.f64 (*.f64 (*.f64 R phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (-.f64 (*.f64 R (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (*.f64 R lambda1) (*.f64 lambda2 phi1)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (*.f64 (/.f64 R phi1) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))))) 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 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 (*.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 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 (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+.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) 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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.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 (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 (*.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/4 (* (* R (* phi1 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) 3))))) (* 1/2 (* (* R (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 R (*.f64 (*.f64 (*.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)))))) (+.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) 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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.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) (pow.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)))) #s(literal 3 binary64))))))) (*.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 #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) 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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.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)))))))))))))))
(* (* R phi1) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))
(*.f64 (*.f64 R phi1) (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) phi2)) #s(literal 2 binary64)))))))
(* phi1 (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.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)))))) 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) phi2)) #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) phi2)) #s(literal 2 binary64)))))))))
(* phi1 (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.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)))))) 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) phi2)) #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) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 R (-.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 (*.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 #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) phi2)) #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) phi2)) #s(literal 2 binary64)))))))) (*.f64 phi1 phi1))))))
(* phi1 (+ (* -1/4 (* (/ (* R (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) (pow phi1 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (+ (* 1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))
(*.f64 phi1 (+.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 (*.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)))))) (-.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 (*.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 #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) phi2)) #s(literal 2 binary64)))))))) (*.f64 phi1 (*.f64 phi1 phi1))) (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) phi2)) #s(literal 2 binary64))))) #s(literal 3 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.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)))))) 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) phi2)) #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) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 R (-.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 (*.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 #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) phi2)) #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) phi2)) #s(literal 2 binary64)))))))) (*.f64 phi1 phi1))))))
(* -1 (* (* R phi1) (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (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) phi2)) #s(literal 2 binary64)))))))
(* -1 (* phi1 (+ (* -1/2 (* (/ (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.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) phi2)) #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) phi2)) #s(literal 2 binary64))))))) (*.f64 R (+.f64 (*.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 #s(literal 2 binary64) phi2)))) phi1))))
(* -1 (* phi1 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.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) phi2)) #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) phi2)) #s(literal 2 binary64))))))) (+.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/4 binary64) (/.f64 (pow.f64 (+.f64 (*.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 #s(literal 2 binary64) phi2)) #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) phi2)) #s(literal 2 binary64)))))))))) phi1)) (*.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) phi2)) #s(literal 2 binary64))))))) (*.f64 R (+.f64 (*.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 #s(literal 2 binary64) phi2)))))) phi1)))
(* -1 (* phi1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* R (* (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (* R (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* 1/2 (* (* R (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))) phi1)) (* R (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.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) phi2)) #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) phi2)) #s(literal 2 binary64))))))) (*.f64 R (+.f64 (*.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 #s(literal 2 binary64) phi2))))) (/.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 (*.f64 R (+.f64 (*.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 #s(literal 2 binary64) phi2))) (+.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/4 binary64) (/.f64 (pow.f64 (+.f64 (*.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 #s(literal 2 binary64) phi2)) #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) phi2)) #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) phi2)) #s(literal 2 binary64))))) #s(literal 3 binary64))))) phi1)) (*.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) phi2)) #s(literal 2 binary64))))))) (+.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/4 binary64) (/.f64 (pow.f64 (+.f64 (*.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 #s(literal 2 binary64) phi2)) #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) phi2)) #s(literal 2 binary64)))))))))))) phi1)) phi1)))
(* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi1))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))
(+.f64 (*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi2) (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.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 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))))
(+ (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))
(+.f64 (*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi1)) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 R phi2) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (-.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1/4 binary64) (*.f64 phi1 phi1)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (*.f64 R (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))))
(+ (* R (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* 1/12 (* phi1 (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (* R (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))))
(+.f64 (*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi1)) (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (*.f64 R (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 R phi2) (+.f64 (*.f64 (*.f64 #s(literal 1/12 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (-.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1/4 binary64) (*.f64 phi1 phi1)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (-.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1/4 binary64) (*.f64 phi1 phi1)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.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 phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 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 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))) (*.f64 phi2 phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 2))) (* 1/2 (/ (* R (* (pow phi1 3) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3)))))))
(*.f64 phi2 (+.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))) (*.f64 phi2 phi2)) (/.f64 (*.f64 (*.f64 R (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))) (*.f64 phi2 (*.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 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- 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 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))) phi2)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/2 (/ (* R (* (pow phi1 3) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 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 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 R (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))) phi2))) phi2)) phi2)))
(sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 (*.f64 (*.f64 lambda2 (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #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 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))) (*.f64 (*.f64 (*.f64 lambda2 (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))))
(+ (sqrt (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda2 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)) 3))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) 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 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (*.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))) #s(literal 3 binary64)))))))) (*.f64 (*.f64 (*.f64 lambda2 (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))))
(* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))
(*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(*.f64 lambda1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda1)))
(* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 lambda1 (-.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) (/.f64 (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda1)))
(* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(*.f64 lambda1 (-.f64 (+.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) (/.f64 (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda1)))
(* -1 (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(*.f64 (neg.f64 (*.f64 lambda1 phi1)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* -1 (* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (+.f64 (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda1)) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (-.f64 (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) lambda1)) lambda1)) (neg.f64 lambda1))
(sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 (*.f64 (*.f64 lambda2 (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #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 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (*.f64 (*.f64 lambda1 (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (- (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2)) (/ (* (pow lambda1 2) (* (pow phi1 4) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 4))) (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (* (pow phi1 2) (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2))) (pow (- phi1 phi2) 2)) 3))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) 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 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (*.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 phi1 phi1) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) 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 (*.f64 lambda1 lambda1) (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))) (*.f64 (*.f64 lambda1 (*.f64 phi1 phi1)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))))))
(* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))
(*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda2)))
(* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 lambda2 (-.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 lambda2) phi1)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) (/.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda2)))
(* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))))
(*.f64 lambda2 (-.f64 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 lambda2) phi1)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (/.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda2)))
(* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(*.f64 (neg.f64 (*.f64 lambda2 phi1)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (+.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))) lambda2)) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (-.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 lambda1 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (/.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))) 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 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 (*.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 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 (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+.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) 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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.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 (-.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 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/4 (* (* phi1 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (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 (*.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 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/4 binary64) (*.f64 (*.f64 (*.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)))))) (+.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) 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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.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) (pow.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)))) #s(literal 3 binary64)))))) (*.f64 (*.f64 #s(literal 1/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))))))) (+.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) 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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.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 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))
(*.f64 phi1 (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) phi2)) #s(literal 2 binary64)))))))
(* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))
(*.f64 phi1 (+.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) phi2)) #s(literal 2 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))))) 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) phi2)) #s(literal 2 binary64))))))))))
(* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))))
(*.f64 phi1 (+.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) phi2)) #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) phi2)) #s(literal 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))))) phi1)) (*.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) phi2)) #s(literal 2 binary64))))))) (/.f64 (-.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 (*.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 #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) phi2)) #s(literal 2 binary64))))))) (*.f64 phi1 phi1)))))))
(* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (+ (* -1/4 (* (/ (* (+ (* -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)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (pow phi1 3)) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (+ (* 1/2 (* (/ (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) (pow phi1 2)) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))))))))
(*.f64 phi1 (+.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) phi2)) #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) phi2)) #s(literal 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))))) phi1)) (*.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) phi2)) #s(literal 2 binary64))))))) (/.f64 (-.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 (*.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 #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) phi2)) #s(literal 2 binary64))))))) (*.f64 phi1 phi1))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.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 (*.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 #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 #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) phi2)) #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) phi2)) #s(literal 2 binary64))))) #s(literal 3 binary64))))) (*.f64 phi1 (*.f64 phi1 phi1)))))))
(* -1 (* phi1 (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (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) phi2)) #s(literal 2 binary64)))))))
(* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1/2 (* (/ (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.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) phi2)) #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (*.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 #s(literal 2 binary64) phi2)) 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) phi2)) #s(literal 2 binary64))))))))))
(* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1/2 (* (/ (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))))) phi1) (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.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) phi2)) #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) phi2)) #s(literal 2 binary64))))))) (+.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/4 binary64) (/.f64 (pow.f64 (+.f64 (*.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 #s(literal 2 binary64) phi2)) #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) phi2)) #s(literal 2 binary64))))))))) phi1)) (*.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) phi2)) #s(literal 2 binary64))))))) (+.f64 (*.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 #s(literal 2 binary64) phi2))))) phi1)))
(* -1 (* phi1 (+ (sqrt (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))))) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (* (/ (* (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (- (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))) phi1) (sqrt (/ 1 (pow (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) 3))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 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)) (* 1/4 (/ (pow (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) 2) (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))))))) phi1)) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (* (pow (sin (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.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) phi2)) #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) phi2)) #s(literal 2 binary64))))))) (+.f64 (*.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 #s(literal 2 binary64) phi2)))) (/.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 (+.f64 (*.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 #s(literal 2 binary64) phi2)) (+.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/4 binary64) (/.f64 (pow.f64 (+.f64 (*.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 #s(literal 2 binary64) phi2)) #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) phi2)) #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) phi2)) #s(literal 2 binary64))))) #s(literal 3 binary64))))) phi1)) (*.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) phi2)) #s(literal 2 binary64))))))) (+.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/4 binary64) (/.f64 (pow.f64 (+.f64 (*.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 #s(literal 2 binary64) phi2)) #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) phi2)) #s(literal 2 binary64))))))))))) phi1)) phi1)))
(sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))
(hypot.f64 (-.f64 lambda1 lambda2) phi1)
(+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))
(+.f64 (hypot.f64 (-.f64 lambda1 lambda2) phi1) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.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 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))))
(+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))
(+.f64 (hypot.f64 (-.f64 lambda1 lambda2) phi1) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (-.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1/4 binary64) (*.f64 phi1 phi1)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))))) (*.f64 (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.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 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))))))
(+ (sqrt (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (* (* phi2 (- (* 1/12 (* phi1 (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (pow phi1 2) (* (- 1/16 (* 1/4 (/ 1 (pow phi1 2)))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1/2 (* phi1 (pow (- lambda1 lambda2) 2)))) 2) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (pow phi1 2) (pow (- lambda1 lambda2) 2)))))))))))
(+.f64 (hypot.f64 (-.f64 lambda1 lambda2) phi1) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.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 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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (-.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1/4 binary64) (*.f64 phi1 phi1)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) (*.f64 phi2 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/12 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (-.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1/4 binary64) (*.f64 phi1 phi1)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) (+.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.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 phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))) (*.f64 phi2 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))) (* 1/2 (/ (* (pow phi1 3) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3)))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))) (*.f64 phi2 phi2)) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))) (*.f64 phi2 (*.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 phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- 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 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64))))) phi2)) phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow phi1 2) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* (pow phi1 3) (* (pow (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) 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 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)) #s(literal 2 binary64)))) phi2))) phi2)) phi2)))
(* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(*.f64 (neg.f64 (*.f64 lambda2 phi1)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(-.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(-.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(-.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))
(*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(*.f64 lambda1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda1)))
(* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(*.f64 lambda1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda1)))
(* lambda1 (+ (* -1 (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(*.f64 lambda1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda1)))
(* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))
(*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* -1 (* lambda1 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda1) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda1) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda1) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (neg.f64 lambda1))
(* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))
(*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(-.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(-.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))) (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(-.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (*.f64 (*.f64 lambda2 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(*.f64 (neg.f64 (*.f64 lambda2 phi1)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* lambda2 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda2) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))))
(* lambda2 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda2) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))))
(* lambda2 (+ (* -1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda2) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))))
(* -1 (* lambda2 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))))
(*.f64 (neg.f64 (*.f64 lambda2 phi1)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))) lambda2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1))))))
(*.f64 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) (/.f64 (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))) 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)))))
(+ (* -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)))))
(+ (* -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)))))
(* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))
(*.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))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 lambda1 lambda2) phi1))))
(* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 lambda1 lambda2) phi1))))
(* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 lambda1 lambda2) phi1))))
(* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 lambda1 lambda2) phi1))))
(* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 lambda1 lambda2) phi1))))
(* -1 (* phi1 (+ (* -1 (/ (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) phi1)) (* 1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 lambda1 lambda2) phi1))))
(- 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 (* phi2 (+ (* -1/4 (* phi1 (- lambda1 lambda2))) (* -1/8 (* phi2 (- lambda1 lambda2)))))) lambda2)
(+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) phi1)) (*.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) phi2)))) lambda2))
(- (+ lambda1 (* phi2 (+ (* -1/4 (* phi1 (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (- lambda1 lambda2)) (* 1/96 (* phi1 (* phi2 (- lambda1 lambda2))))))))) lambda2)
(+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) phi1)) (*.f64 phi2 (+.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64)) (*.f64 (*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) phi2)) #s(literal 1/96 binary64)))))) lambda2))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(* phi1 (* (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)) (- lambda1 lambda2)))
(*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(* -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 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))
(* 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 #s(literal -1/48 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.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 (*.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/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 (*.f64 phi1 phi1) #s(literal -1/8 binary64)) (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 (*.f64 phi1 phi1) #s(literal 1/384 binary64)) (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 (*.f64 phi1 phi1) #s(literal -1/46080 binary64)) (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)))
(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)) (* -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)) (* -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))))
(* -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/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* -1/2 (* phi1 (sin (* 1/2 phi2))))
(*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* -1 (* phi1 (+ (* -1 (/ (cos (* 1/2 phi2)) phi1)) (* 1/2 (sin (* 1/2 phi2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
1
#s(literal 1 binary64)
(+ 1 (* -1/4 (* phi1 phi2)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 #s(literal -1/4 binary64)) phi2))
(+ 1 (* phi2 (+ (* -1/4 phi1) (* -1/8 phi2))))
(+.f64 #s(literal 1 binary64) (*.f64 phi2 (+.f64 (*.f64 phi1 #s(literal -1/4 binary64)) (*.f64 phi2 #s(literal -1/8 binary64)))))
(+ 1 (* phi2 (+ (* -1/4 phi1) (* phi2 (- (* 1/96 (* phi1 phi2)) 1/8)))))
(+.f64 #s(literal 1 binary64) (*.f64 phi2 (+.f64 (*.f64 phi1 #s(literal -1/4 binary64)) (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/96 binary64) (*.f64 phi1 phi2)) #s(literal -1/8 binary64))))))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (/ (cos (* 1/2 phi2)) phi1)))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))
(/ 1 phi1)
(/.f64 #s(literal 1 binary64) phi1)
(+ (* -1/8 (/ (pow phi2 2) phi1)) (/ 1 phi1))
(+.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi2 phi2) phi1)))
(+ (* (pow phi2 2) (- (* 1/384 (/ (pow phi2 2) phi1)) (* 1/8 (/ 1 phi1)))) (/ 1 phi1))
(+.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 phi2 phi2)) phi1) (/.f64 #s(literal 1/8 binary64) phi1))))
(+ (* (pow phi2 2) (- (* (pow phi2 2) (+ (* -1/46080 (/ (pow phi2 2) phi1)) (* 1/384 (/ 1 phi1)))) (* 1/8 (/ 1 phi1)))) (/ 1 phi1))
(+.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 (*.f64 phi2 phi2) (-.f64 (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 #s(literal -1/46080 binary64) (/.f64 (*.f64 phi2 phi2) phi1)) (/.f64 #s(literal 1/384 binary64) phi1))) (/.f64 #s(literal 1/8 binary64) phi1))))
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)
(/ (cos (* 1/2 phi2)) phi1)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)

eval609.0ms (1.7%)

Compiler

Compiled 54291 to 4017 computations (92.6% saved)

prune560.0ms (1.6%)

Pruning

47 alts after pruning (43 fresh and 4 done)

PrunedKeptTotal
New1321191340
Fresh82432
Picked325
Done022
Total1332471379
Accuracy
100.0%
Counts
1379 → 47
Alt Table
Click to see full alt table
StatusAccuracyProgram
19.7%
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
17.3%
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (*.f64 R phi1))
▶9.0%
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))))
17.3%
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))))
10.5%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
22.3%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
25.0%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
55.5%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
15.4%
(+.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/46080 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 (*.f64 R lambda2) #s(literal 1/384 binary64)))))))
✓12.5%
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 R lambda1))
▶12.5%
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
11.5%
(*.f64 (+.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)))) (*.f64 R lambda1))
32.9%
(*.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)))))
22.6%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
✓23.7%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
9.3%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
8.1%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
39.1%
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)))
15.8%
(*.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)))))
15.3%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
22.5%
(*.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)))))
✓12.5%
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
55.9%
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
▶99.8%
(*.f64 R (hypot.f64 (/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
92.4%
(*.f64 R (hypot.f64 (/.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
97.6%
(*.f64 R (hypot.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 phi1 phi2)))
41.4%
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (/.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
75.7%
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda1)) (-.f64 phi1 phi2)))
67.7%
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi1))
66.1%
(*.f64 R (hypot.f64 (+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) phi1)) (*.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) phi2)))) lambda2)) (-.f64 phi1 phi2)))
72.5%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 phi1 phi2)))
82.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 #s(literal -1/2 binary64))))) (-.f64 phi1 phi2)))
77.1%
(*.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)))
73.9%
(*.f64 R (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
22.5%
(*.f64 R (hypot.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 1 binary64))) (-.f64 phi1 phi2)))
68.9%
(*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2)))
53.3%
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
15.8%
(*.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)))
15.3%
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
10.5%
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
11.4%
(*.f64 R (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
▶22.3%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
52.6%
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
13.6%
(*.f64 R (*.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))))))
✓32.0%
(*.f64 R phi2)
▶26.4%
(*.f64 R lambda2)
27.9%
(neg.f64 (*.f64 R phi1))
Compiler

Compiled 2087 to 1327 computations (36.4% saved)

simplify446.0ms (1.2%)

Algorithm
1×egg-herbie
Localize:

Found 17 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
✓cost-diff0
(-.f64 #s(literal 0 binary64) lambda2)
✓cost-diff6656
(-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2))
✓cost-diff6656
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
✓cost-diff-64
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
✓cost-diff0
(+.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 phi1 (*.f64 R phi1))
✓cost-diff0
(*.f64 R (*.f64 phi1 (*.f64 R phi1)))
✓cost-diff1024
(/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))))
✓cost-diff1152
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))))
✓cost-diff0
(*.f64 R lambda2)
✓cost-diff6400
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
✓cost-diff6528
(/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
✓cost-diff6528
(hypot.f64 (/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2))
✓cost-diff6528
(*.f64 R (hypot.f64 (/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
Rules
4354×*-lowering-*.f32
4354×*-lowering-*.f64
1944×/-lowering-/.f32
1944×/-lowering-/.f64
1418×+-lowering-+.f64
Iterations

Useful iterations: 3 (0.0ms)

IterNodesCost
048361
1123334
2350321
31863302
08491302
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(* R (sqrt (+ (* (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2))) (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
R
(sqrt (+ (* (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2))) (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))
(/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2)))
(+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1))))
(- 0 (sin (* phi2 1/2)))
0
(sin (* phi2 1/2))
(* phi2 1/2)
phi2
1/2
(sin (* 1/2 phi1))
(* 1/2 phi1)
phi1
(* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))
(cos (* phi2 1/2))
(cos (* 1/2 phi1))
(/ 1 (- lambda1 lambda2))
1
(- lambda1 lambda2)
lambda1
lambda2
(- phi1 phi2)
(* R lambda2)
R
lambda2
(/ 1 (/ (* R (* phi1 (* R phi1))) (- 0 (* (* R phi1) (* R (* phi1 (* R phi1)))))))
1
(/ (* R (* phi1 (* R phi1))) (- 0 (* (* R phi1) (* R (* phi1 (* R phi1))))))
(* R (* phi1 (* R phi1)))
R
(* phi1 (* R phi1))
phi1
(* R phi1)
(- 0 (* (* R phi1) (* R (* phi1 (* R phi1)))))
0
(* (* R phi1) (* R (* phi1 (* R phi1))))
(* R (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda1)))
R
(* (cos (* 1/2 (+ phi1 phi2))) (neg lambda1))
(cos (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
1/2
(+ phi1 phi2)
phi1
phi2
(neg lambda1)
lambda1
(* (- 0 lambda2) (- (* R (cos (* 1/2 phi1))) (/ (* (* R lambda1) (cos (* 1/2 phi1))) lambda2)))
(- 0 lambda2)
0
lambda2
(- (* R (cos (* 1/2 phi1))) (/ (* (* R lambda1) (cos (* 1/2 phi1))) lambda2))
(* R (cos (* 1/2 phi1)))
R
(cos (* 1/2 phi1))
(* 1/2 phi1)
1/2
phi1
(/ (* (* R lambda1) (cos (* 1/2 phi1))) lambda2)
(* (* R lambda1) (cos (* 1/2 phi1)))
(* R lambda1)
lambda1
Outputs
(* R (sqrt (+ (* (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2))) (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
R
(sqrt (+ (* (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2))) (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))
(hypot.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2))
(/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2)))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 lambda1 lambda2))
(+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1))))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- 0 (sin (* phi2 1/2)))
(-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
0
#s(literal 0 binary64)
(sin (* phi2 1/2))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(* phi2 1/2)
(*.f64 phi2 #s(literal 1/2 binary64))
phi2
1/2
#s(literal 1/2 binary64)
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
phi1
(* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos (* phi2 1/2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(/ 1 (- lambda1 lambda2))
(/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
1
#s(literal 1 binary64)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(- phi1 phi2)
(-.f64 phi1 phi2)
(* R lambda2)
(*.f64 R lambda2)
R
lambda2
(/ 1 (/ (* R (* phi1 (* R phi1))) (- 0 (* (* R phi1) (* R (* phi1 (* R phi1)))))))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
1
#s(literal 1 binary64)
(/ (* R (* phi1 (* R phi1))) (- 0 (* (* R phi1) (* R (* phi1 (* R phi1))))))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(* R (* phi1 (* R phi1)))
(*.f64 R (*.f64 phi1 (*.f64 R phi1)))
R
(* phi1 (* R phi1))
(*.f64 phi1 (*.f64 R phi1))
phi1
(* R phi1)
(*.f64 R phi1)
(- 0 (* (* R phi1) (* R (* phi1 (* R phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R (*.f64 phi1 (*.f64 R phi1))))))
0
#s(literal 0 binary64)
(* (* R phi1) (* R (* phi1 (* R phi1))))
(*.f64 R (*.f64 phi1 (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))
(* R (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda1)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda1)))
R
(* (cos (* 1/2 (+ phi1 phi2))) (neg lambda1))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) 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
(neg lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
lambda1
(* (- 0 lambda2) (- (* R (cos (* 1/2 phi1))) (/ (* (* R lambda1) (cos (* 1/2 phi1))) lambda2)))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(- 0 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
0
#s(literal 0 binary64)
lambda2
(- (* R (cos (* 1/2 phi1))) (/ (* (* R lambda1) (cos (* 1/2 phi1))) lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
R
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
1/2
#s(literal 1/2 binary64)
phi1
(/ (* (* R lambda1) (cos (* 1/2 phi1))) lambda2)
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))
(* (* R lambda1) (cos (* 1/2 phi1)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R lambda1))
(* R lambda1)
(*.f64 R lambda1)
lambda1

localize1.1s (3%)

Localize:

Found 17 expressions of interest:

NewMetricScoreProgram
✓accuracy99.8%
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
✓accuracy99.8%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
✓accuracy94.4%
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
✓accuracy90.0%
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
✓accuracy100.0%
(neg.f64 lambda1)
✓accuracy99.8%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
✓accuracy99.7%
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))
✓accuracy76.9%
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
✓accuracy99.8%
(*.f64 phi1 (*.f64 R phi1))
✓accuracy99.1%
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))))
✓accuracy93.8%
(*.f64 R (*.f64 phi1 (*.f64 R phi1)))
✓accuracy35.8%
(/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))))
✓accuracy100.0%
(*.f64 R lambda2)
✓accuracy99.9%
(*.f64 R (hypot.f64 (/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
✓accuracy99.9%
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
✓accuracy99.8%
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
✓accuracy99.6%
(/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
Results
700.0ms178×1valid
135.0ms78×0valid
Compiler

Compiled 384 to 45 computations (88.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 535.0ms
ival-mult: 173.0ms (32.3% of total)
ival-cos: 80.0ms (14.9% of total)
backward-pass: 59.0ms (11% of total)
ival-sin: 59.0ms (11% of total)
ival-div: 54.0ms (10.1% of total)
compiled-spec: 49.0ms (9.2% of total)
ival-sub: 32.0ms (6% of total)
ival-add: 15.0ms (2.8% of total)
ival-sqrt: 8.0ms (1.5% of total)
ival-neg: 5.0ms (0.9% of total)
const: 2.0ms (0.4% of total)

series331.0ms (0.9%)

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

177 calls:

TimeVariablePointExpression
81.0ms
phi1
@0
(/ (* (* R lambda1) (cos (* 1/2 phi1))) lambda2)
26.0ms
R
@-inf
(* R (cos (* 1/2 phi1)))
13.0ms
lambda1
@-inf
(sqrt (+ (* (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2))) (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))
7.0ms
lambda1
@0
(* R (sqrt (+ (* (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2))) (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
7.0ms
lambda2
@0
(* R (sqrt (+ (* (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2))) (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))

rewrite1.2s (3.3%)

Algorithm
1×batch-egg-rewrite
Rules
5530×*-lowering-*.f32
5530×*-lowering-*.f64
2806×/-lowering-/.f32
2806×/-lowering-/.f64
2716×+-lowering-+.f64
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
048276
1264254
22507176
010602176
Stop Event
1×iter limit
1×node limit
Counts
22 → 495
Calls
Call 1
Inputs
(* R (sqrt (+ (* (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2))) (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(sqrt (+ (* (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2))) (/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))
(/ (+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))) (/ 1 (- lambda1 lambda2)))
(+ (* (- 0 (sin (* phi2 1/2))) (sin (* 1/2 phi1))) (* (cos (* phi2 1/2)) (cos (* 1/2 phi1))))
(* R lambda2)
(/ 1 (/ (* R (* phi1 (* R phi1))) (- 0 (* (* R phi1) (* R (* phi1 (* R phi1)))))))
(/ (* R (* phi1 (* R phi1))) (- 0 (* (* R phi1) (* R (* phi1 (* R phi1))))))
(* R (* phi1 (* R phi1)))
(* phi1 (* R phi1))
(cos (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
(+ phi1 phi2)
(* R (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda1)))
(* (- 0 lambda2) (- (* R (cos (* 1/2 phi1))) (/ (* (* R lambda1) (cos (* 1/2 phi1))) lambda2)))
(- (* R (cos (* 1/2 phi1))) (/ (* (* R lambda1) (cos (* 1/2 phi1))) lambda2))
(- 0 lambda2)
(* R (cos (* 1/2 phi1)))
(* (cos (* phi2 1/2)) (cos (* 1/2 phi1)))
(* (cos (* 1/2 (+ phi1 phi2))) (neg lambda1))
(neg lambda1)
(/ (* (* R lambda1) (cos (* 1/2 phi1))) lambda2)
(* (* R lambda1) (cos (* 1/2 phi1)))
Outputs
(*.f64 R (hypot.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)) R)
(exp.f64 (*.f64 (log.f64 (+.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(hypot.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)))
(sqrt.f64 (+.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 6 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (-.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(/.f64 (hypot.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))
(/.f64 (hypot.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (sqrt.f64 (-.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(/.f64 (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 6 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (neg.f64 (-.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(/.f64 (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(pow.f64 (+.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (+.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 (+.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (+.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 (log.f64 (+.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #s(literal 1/2 binary64))
(*.f64 (hypot.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) #s(literal 1/2 binary64)))
(*.f64 (hypot.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(*.f64 (pow.f64 (+.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (*.f64 (+.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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)))
(+.f64 (*.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)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(exp.f64 (*.f64 (log.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal -1 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 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 1 binary64)))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1))))))) (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1))))))) #s(literal 1 binary64)) (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (*.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (*.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1))))))) (-.f64 lambda1 lambda2)) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2))
(*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 lambda1 lambda2)))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(*.f64 (-.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 1 binary64)))
(*.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 -1 binary64) (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 1 binary64)) (-.f64 lambda1 lambda2))
(*.f64 (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal -1 binary64)) #s(literal 1 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal -1 binary64))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (*.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1))))))) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1))))))) (*.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))))) (neg.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1))))))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 1 binary64))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))) #s(literal -2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 1 binary64))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))))) (*.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))))) (*.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))))) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))))) (*.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(pow.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal -1 binary64))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 1 binary64))
(*.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1))))))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 R lambda2)
(*.f64 lambda2 R)
(+.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) #s(literal 0 binary64)) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1))))
(+.f64 (*.f64 #s(literal 0 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1))) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1))))
(exp.f64 (*.f64 (log.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)))) #s(literal -1 binary64)))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))
(fma.f64 #s(literal 0 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1))))
(fma.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) #s(literal 0 binary64) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1))))
(neg.f64 (/.f64 (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))
(neg.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(neg.f64 (/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)))))
(/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1))))
(/.f64 (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))) (*.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1)))
(/.f64 (*.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(/.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(/.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 R (*.f64 phi1 phi1))) R)
(/.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (*.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(/.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))
(/.f64 (/.f64 #s(literal 1 binary64) R) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))))
(/.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) R) (*.f64 R (*.f64 phi1 phi1)))
(/.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 R phi1)) (*.f64 R phi1))
(pow.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal 1 binary64))
(pow.f64 (pow.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal -1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)))) #s(literal -1/2 binary64))
(pow.f64 (exp.f64 (log.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1))))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1))))
(*.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1))))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (pow.f64 (*.f64 (*.f64 R phi1) (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (pow.f64 (/.f64 (*.f64 R phi1) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal 1 binary64))
(*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
(*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))))
(*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (pow.f64 (/.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))) (/.f64 #s(literal 1 binary64) R))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)))
(*.f64 (pow.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal -1/2 binary64)) (pow.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal -1/2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) R) (/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))))
(*.f64 (/.f64 #s(literal 1 binary64) R) (pow.f64 (/.f64 (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 R (*.f64 phi1 phi1))) (pow.f64 (*.f64 R (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 R (*.f64 phi1 phi1))) (pow.f64 (/.f64 R (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))) #s(literal -1 binary64)))
(*.f64 (pow.f64 (/.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))))
(*.f64 (pow.f64 (/.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1)))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (*.f64 (log.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)))) #s(literal -1 binary64)) #s(literal -1 binary64)))
(exp.f64 (neg.f64 (*.f64 (log.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)))) #s(literal -1 binary64))))
(neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal 1 binary64)))
(/.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
(/.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))))
(/.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1)))))
(/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) #s(literal -1 binary64))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(/.f64 (neg.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) #s(literal 1 binary64)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
(pow.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 R (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))))
(*.f64 R (/.f64 (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) #s(literal 1 binary64)))
(*.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1))))
(*.f64 (*.f64 R phi1) (*.f64 (*.f64 R phi1) (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))))
(*.f64 (*.f64 R phi1) (/.f64 (*.f64 R phi1) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))))
(*.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 R (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))))
(*.f64 (*.f64 R (*.f64 phi1 phi1)) (/.f64 R (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))))
(*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (/.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))) #s(literal 1 binary64)))
(*.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal -1 binary64)))
(*.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(*.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))
(*.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))) (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) #s(literal -1 binary64)))
(*.f64 (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) R)
(*.f64 (/.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(*.f64 (/.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) #s(literal -1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1)))))) #s(literal -1 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) R) #s(literal -1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))) #s(literal -1 binary64)))
(*.f64 (pow.f64 (pow.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1))) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(exp.f64 (*.f64 (log.f64 (*.f64 R phi1)) #s(literal 2 binary64)))
(pow.f64 (*.f64 R phi1) #s(literal 2 binary64))
(*.f64 R (*.f64 R (*.f64 phi1 phi1)))
(*.f64 phi1 (*.f64 R (*.f64 R phi1)))
(*.f64 (*.f64 R phi1) (*.f64 R phi1))
(*.f64 (*.f64 R (*.f64 phi1 phi1)) R)
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(*.f64 (*.f64 R (*.f64 R phi1)) phi1)
(*.f64 (*.f64 R R) (*.f64 phi1 phi1))
(*.f64 R (*.f64 phi1 phi1))
(*.f64 phi1 (*.f64 R phi1))
(*.f64 (*.f64 R phi1) phi1)
(*.f64 (*.f64 phi1 phi1) R)
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal -1 binary64))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (*.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1))))))) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1))))))) (*.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))))) (neg.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1))))))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 1 binary64))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))) #s(literal -2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 1 binary64))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -2 binary64)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))))) (*.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))))) (*.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64)))))) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))))))) (*.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(pow.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal -1 binary64))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 1 binary64))
(*.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.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) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1))))))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) phi1))
(+.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64)))
(fma.f64 phi2 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))
(fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 phi2 #s(literal 1/2 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) #s(literal 1/8 binary64)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) #s(literal 1/8 binary64))) (+.f64 (*.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (+.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) #s(literal 1/8 binary64)) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) #s(literal 1/8 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (*.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))
(/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1))))
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) (-.f64 phi1 phi2))
(/.f64 (*.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2))) #s(literal 1/2 binary64)) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1))))
(/.f64 (*.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (-.f64 phi1 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))
(+.f64 phi2 phi1)
(+.f64 phi1 phi2)
(-.f64 (/.f64 (*.f64 phi1 phi1) (-.f64 phi1 phi2)) (/.f64 (*.f64 phi2 phi2) (-.f64 phi1 phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1))) (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))))
(/.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1))))
(/.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2))) (+.f64 (*.f64 phi2 phi2) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi1))))
(/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (-.f64 phi1 phi2))
(/.f64 (neg.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) (neg.f64 (-.f64 phi1 phi2)))
(/.f64 (neg.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))) (neg.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1)))))
(/.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (-.f64 phi2 phi1))
(pow.f64 (/.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1))) (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) #s(literal -1 binary64))
(*.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1)))))
(*.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))
(*.f64 (/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) (+.f64 phi2 phi1))
(*.f64 (/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (-.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (+.f64 phi2 phi1))))
(neg.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) R))
(neg.f64 (*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1)))
(neg.f64 (*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 #s(literal 0 binary64) lambda1)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 (-.f64 #s(literal 0 binary64) lambda1) R))
(*.f64 (-.f64 #s(literal 0 binary64) lambda1) (*.f64 R (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) lambda1)) R)
(*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (-.f64 #s(literal 0 binary64) lambda1))
(*.f64 (*.f64 R (-.f64 #s(literal 0 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(*.f64 (*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal -1 binary64)) lambda1)
(+.f64 (*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) #s(literal 0 binary64)) (*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2))))
(+.f64 (*.f64 #s(literal 0 binary64) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))) (*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 #s(literal 0 binary64) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 #s(literal 0 binary64) lambda2) (*.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) #s(literal 0 binary64) (*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))))
(neg.f64 (*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) lambda2))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (*.f64 (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))) (*.f64 lambda2 lambda2)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2))) (*.f64 (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))) lambda2))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (*.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 lambda2 lambda2)))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2))) (*.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) lambda2))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (-.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda2 lambda2) (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (-.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 lambda2 lambda2) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2)) (-.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64)))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2)) (-.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64)))) (*.f64 lambda2 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))))
(/.f64 (*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (*.f64 lambda2 lambda2))
(/.f64 (*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2))) lambda2)
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64)))) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))) (*.f64 lambda2 lambda2))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2)) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))) lambda2)
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))
(+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(+.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (+.f64 (*.f64 (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) (*.f64 R lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))
(+.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (+.f64 (*.f64 (neg.f64 (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))
(+.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (/.f64 #s(literal 1 binary64) lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))
(+.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (fma.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))
(+.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) R))) (fma.f64 (neg.f64 (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2))) R (*.f64 (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) R)))
(+.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (/.f64 #s(literal 1 binary64) lambda2)) R))) (fma.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (/.f64 #s(literal 1 binary64) lambda2))) R (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (/.f64 #s(literal 1 binary64) lambda2)) R)))
(+.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2) R))) (fma.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)) R (*.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2) R)))
(+.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 (*.f64 (*.f64 R lambda1) (/.f64 #s(literal 1 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (neg.f64 (*.f64 (*.f64 R lambda1) (/.f64 #s(literal 1 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (*.f64 R lambda1) (/.f64 #s(literal 1 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (neg.f64 (/.f64 (*.f64 R lambda1) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 1 binary64)))) (fma.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 1 binary64))))
(+.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 (*.f64 R (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) lambda1))) (fma.f64 (neg.f64 (*.f64 R (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2))) lambda1 (*.f64 (*.f64 R (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) lambda1)))
(+.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1)))))) (fma.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))))))
(+.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 (*.f64 lambda2 lambda2) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2))))))) (fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))))
(+.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 lambda2 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2)))))) (fma.f64 (-.f64 #s(literal 0 binary64) lambda2) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2))) (*.f64 lambda2 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2))))))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R (neg.f64 (*.f64 (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) R))) (fma.f64 (neg.f64 (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2))) R (*.f64 (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) R)))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R (neg.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (/.f64 #s(literal 1 binary64) lambda2)) R))) (fma.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (/.f64 #s(literal 1 binary64) lambda2))) R (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (/.f64 #s(literal 1 binary64) lambda2)) R)))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R (neg.f64 (*.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2) R))) (fma.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)) R (*.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2) R)))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R (neg.f64 (*.f64 (*.f64 (*.f64 R lambda1) (/.f64 #s(literal 1 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (neg.f64 (*.f64 (*.f64 R lambda1) (/.f64 #s(literal 1 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (*.f64 R lambda1) (/.f64 #s(literal 1 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R (neg.f64 (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (neg.f64 (/.f64 (*.f64 R lambda1) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R (neg.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 1 binary64)))) (fma.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 1 binary64))))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R (neg.f64 (*.f64 (*.f64 R (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) lambda1))) (fma.f64 (neg.f64 (*.f64 R (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2))) lambda1 (*.f64 (*.f64 R (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) lambda1)))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1)))))) (fma.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))))))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R (neg.f64 (*.f64 (*.f64 lambda2 lambda2) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2))))))) (fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))))
(+.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R (neg.f64 (*.f64 lambda2 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2)))))) (fma.f64 (-.f64 #s(literal 0 binary64) lambda2) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2))) (*.f64 lambda2 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2))))))
(-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))
(-.f64 (/.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))))) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))))))
(-.f64 (/.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))))
(fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R (*.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(fma.f64 (*.f64 R lambda1) (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R lambda1)) (neg.f64 (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (/.f64 #s(literal 1 binary64) lambda2) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))))) (+.f64 (*.f64 (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) (*.f64 R lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))
(fma.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))))) (+.f64 (*.f64 (neg.f64 (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))
(fma.f64 (-.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))) (+.f64 (*.f64 (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)) (*.f64 R lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))
(fma.f64 (-.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))) (+.f64 (*.f64 (neg.f64 (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))
(fma.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))) (-.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (-.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))))
(/.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2))))))
(/.f64 (-.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64))) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64)))) (neg.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))))
(pow.f64 (/.f64 (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))))) (-.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))) (-.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))))))
(*.f64 (-.f64 (*.f64 (*.f64 R R) (+.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) phi1)))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))))
(+.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) lambda2))
(+.f64 (-.f64 #s(literal 0 binary64) lambda2) #s(literal 0 binary64))
(-.f64 #s(literal 0 binary64) lambda2)
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (*.f64 lambda2 lambda2)))
(-.f64 (/.f64 #s(literal 0 binary64) lambda2) (/.f64 (*.f64 lambda2 lambda2) lambda2))
(fma.f64 #s(literal -1 binary64) lambda2 #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (/.f64 #s(literal 1 binary64) (*.f64 lambda2 lambda2)) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2)) (/.f64 #s(literal 1 binary64) lambda2) #s(literal 0 binary64))
(neg.f64 lambda2)
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 lambda2 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 lambda2 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 lambda2 lambda2))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 lambda2 lambda2) (*.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) lambda2)))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2)) lambda2)
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2)) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) lambda2)))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2)))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(pow.f64 (/.f64 (*.f64 lambda2 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) #s(literal -1 binary64))
(pow.f64 (/.f64 lambda2 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2))) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) lambda2)
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (/.f64 #s(literal 1 binary64) (*.f64 lambda2 lambda2)))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2)) (/.f64 #s(literal 1 binary64) lambda2))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(/.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal -1 binary64))
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1))
(neg.f64 (*.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) lambda1))
(*.f64 (-.f64 #s(literal 0 binary64) lambda1) (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))) lambda1))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal -1 binary64)) lambda1)
(+.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) lambda1))
(-.f64 #s(literal 0 binary64) lambda1)
(neg.f64 lambda1)
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (+.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 #s(literal 0 binary64) lambda1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda1 lambda1)) (+.f64 #s(literal 0 binary64) lambda1))
(*.f64 lambda1 #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) lambda1)
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 lambda2 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)))
(neg.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 lambda2 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 lambda2 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R lambda1)) lambda2)
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 lambda2 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) lambda2))
(/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R lambda1)) #s(literal 1 binary64)) lambda2)
(/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1)))) (neg.f64 (-.f64 #s(literal 0 binary64) lambda2)))
(pow.f64 (/.f64 (/.f64 lambda2 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (/.f64 lambda2 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 R (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(*.f64 R (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))
(*.f64 R (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 R lambda1) (/.f64 #s(literal 1 binary64) lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2))
(*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 R lambda1) lambda2)))
(*.f64 lambda1 (*.f64 R (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(*.f64 (*.f64 R lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R lambda1)) (/.f64 #s(literal 1 binary64) lambda2))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda2)))
(*.f64 (/.f64 #s(literal 1 binary64) lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R lambda1)))
(*.f64 (/.f64 #s(literal 1 binary64) lambda2) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R lambda1))) #s(literal -1 binary64)))
(*.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (*.f64 R lambda1))
(*.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (*.f64 lambda2 lambda2))
(*.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) (*.f64 lambda2 lambda2))) lambda2)
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R lambda1))
(*.f64 lambda1 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) R)

simplify1.1s (3.2%)

Algorithm
1×egg-herbie
Rules
7252×*-lowering-*.f32
7252×*-lowering-*.f64
4298×+-lowering-+.f64
4298×+-lowering-+.f32
1462×distribute-lft-in
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
0103115728
1372814915
0802514915
Stop Event
1×iter limit
1×node limit
Counts
708 → 708
Calls
Call 1
Inputs
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* 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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- 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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- 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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- 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)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- 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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- 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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (+ (* -1 (/ (* R (* lambda2 (+ (* -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)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) 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))))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* 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)))))))))
(* -1 (* R (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (* -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))))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* R (* lambda2 (+ (* -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))))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda1)) (* R (* lambda2 (+ (* -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 (sqrt (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 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))))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 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)))))))))
(* -1 (* R (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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 (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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 (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* 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 (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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))))))))
(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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* 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 (+ (* -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))))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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)))))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* 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))))))))
(* -1 (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(* -1 (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* 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)))))))
(* -1 (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* 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)))))))
(* -1 (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda1)) (* 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)))))))
(sqrt (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 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))))))))
(* -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 (/ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (+ (* -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)))) (* (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 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 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)))) (* (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))))))
(+ (* -1 (* lambda2 (+ (* -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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (+ (* -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)))) (* (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)))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* 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))))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* 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))))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* 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))))))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))
(* -1 (* lambda1 (+ (* -1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda1))))
(* lambda1 (+ (* -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)))) (* (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))))))
(+ (* -1 (* lambda2 (+ (* -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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (+ (* -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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(* lambda2 (+ (* -1 (+ (* -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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)))
(* lambda2 (+ (* -1 (+ (* -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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)))
(* lambda2 (+ (* -1 (+ (* -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)))) (* (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 (/ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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 (/ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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 (/ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (* -1/8 (* phi2 (cos (* 1/2 phi1)))))))
(+ (cos (* 1/2 phi1)) (* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (* -1/8 (* phi1 (cos (* 1/2 phi2)))))))
(+ (cos (* 1/2 phi2)) (* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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 (* 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 (* 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))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* (pow R 2) (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(* R (pow phi1 2))
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(cos (* 1/2 (+ 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)))
phi2
(+ phi1 phi2)
(+ phi1 phi2)
(+ phi1 phi2)
phi1
(* phi1 (+ 1 (/ phi2 phi1)))
(* phi1 (+ 1 (/ phi2 phi1)))
(* phi1 (+ 1 (/ phi2 phi1)))
phi1
(* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))
(* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))
(* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))
phi1
(+ phi1 phi2)
(+ phi1 phi2)
(+ phi1 phi2)
phi2
(* phi2 (+ 1 (/ phi1 phi2)))
(* phi2 (+ 1 (/ phi1 phi2)))
(* phi2 (+ 1 (/ phi1 phi2)))
phi2
(* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))
(* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))
(* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 phi2)))))
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))))
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2)))))) (* 1/2 (* R (* lambda1 (sin (* 1/2 phi2))))))))
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* 1/8 (* R (* lambda1 (cos (* 1/2 phi2))))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(* -1 (* R (* lambda1 (cos (* 1/2 phi1)))))
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))))
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (* R (* lambda1 (sin (* 1/2 phi1))))))))
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* 1/8 (* R (* lambda1 (cos (* 1/2 phi1))))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* R (* lambda1 (cos (* 1/2 phi1)))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* R (* lambda1 (cos (* 1/2 phi1)))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* R (* lambda1 (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* lambda2 (+ (* -1 (* R (cos (* 1/2 phi1)))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))
(* lambda2 (+ (* -1 (* R (cos (* 1/2 phi1)))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))
(* lambda2 (+ (* -1 (* R (cos (* 1/2 phi1)))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* R (* lambda2 (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* R (* lambda2 (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* R (* lambda2 (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* R (* lambda2 (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda2 (- R (/ (* R lambda1) lambda2))))
(+ (* -1 (* lambda2 (* (pow phi1 2) (- (* -1/8 R) (* -1/8 (/ (* R lambda1) lambda2)))))) (* -1 (* lambda2 (- R (/ (* R lambda1) lambda2)))))
(+ (* -1 (* lambda2 (- R (/ (* R lambda1) lambda2)))) (* (pow phi1 2) (+ (* -1 (* lambda2 (* (pow phi1 2) (- (* 1/384 R) (* 1/384 (/ (* R lambda1) lambda2)))))) (* -1 (* lambda2 (- (* -1/8 R) (* -1/8 (/ (* R lambda1) lambda2))))))))
(+ (* -1 (* lambda2 (- R (/ (* R lambda1) lambda2)))) (* (pow phi1 2) (+ (* -1 (* lambda2 (- (* -1/8 R) (* -1/8 (/ (* R lambda1) lambda2))))) (* (pow phi1 2) (+ (* -1 (* lambda2 (* (pow phi1 2) (- (* -1/46080 R) (* -1/46080 (/ (* R lambda1) lambda2)))))) (* -1 (* lambda2 (- (* 1/384 R) (* 1/384 (/ (* R lambda1) lambda2))))))))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* R (* lambda1 (cos (* 1/2 phi1)))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* R (* lambda1 (cos (* 1/2 phi1)))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* R (* lambda1 (cos (* 1/2 phi1)))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (* R (cos (* 1/2 phi1)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (* R (cos (* 1/2 phi1)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (* R (cos (* 1/2 phi1)))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 phi1)))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 phi1)))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 phi1)))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1))))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* -1 (* R (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* R (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* R (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* R (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(- R (/ (* R lambda1) lambda2))
(- (+ R (* (pow phi1 2) (- (* -1/8 R) (* -1/8 (/ (* R lambda1) lambda2))))) (/ (* R lambda1) lambda2))
(- (+ R (* (pow phi1 2) (- (+ (* -1/8 R) (* (pow phi1 2) (- (* 1/384 R) (* 1/384 (/ (* R lambda1) lambda2))))) (* -1/8 (/ (* R lambda1) lambda2))))) (/ (* R lambda1) lambda2))
(- (+ R (* (pow phi1 2) (- (+ (* -1/8 R) (* (pow phi1 2) (- (+ (* 1/384 R) (* (pow phi1 2) (- (* -1/46080 R) (* -1/46080 (/ (* R lambda1) lambda2))))) (* 1/384 (/ (* R lambda1) lambda2))))) (* -1/8 (/ (* R lambda1) lambda2))))) (/ (* R lambda1) lambda2))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(* R (cos (* 1/2 phi1)))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(* lambda1 (- (/ (* R (cos (* 1/2 phi1))) lambda1) (/ (* R (cos (* 1/2 phi1))) lambda2)))
(* lambda1 (- (/ (* R (cos (* 1/2 phi1))) lambda1) (/ (* R (cos (* 1/2 phi1))) lambda2)))
(* lambda1 (- (/ (* R (cos (* 1/2 phi1))) lambda1) (/ (* R (cos (* 1/2 phi1))) lambda2)))
(* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 phi1))) lambda1)) (* -1 (/ (* R (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 phi1))) lambda1)) (* -1 (/ (* R (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 phi1))) lambda1)) (* -1 (/ (* R (cos (* 1/2 phi1))) lambda2)))))
(* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(/ (- (* R (* lambda2 (cos (* 1/2 phi1)))) (* R (* lambda1 (cos (* 1/2 phi1))))) lambda2)
(/ (- (* R (* lambda2 (cos (* 1/2 phi1)))) (* R (* lambda1 (cos (* 1/2 phi1))))) lambda2)
(/ (- (* R (* lambda2 (cos (* 1/2 phi1)))) (* R (* lambda1 (cos (* 1/2 phi1))))) lambda2)
(* R (cos (* 1/2 phi1)))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(* R (cos (* 1/2 phi1)))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(* -1 lambda2)
(* -1 lambda2)
(* -1 lambda2)
(* -1 lambda2)
(* -1 lambda2)
(* -1 lambda2)
(* -1 lambda2)
(* -1 lambda2)
(* -1 lambda2)
(* -1 lambda2)
(* -1 lambda2)
(* -1 lambda2)
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
R
(+ R (* -1/8 (* R (pow phi1 2))))
(+ R (* (pow phi1 2) (+ (* -1/8 R) (* 1/384 (* R (pow phi1 2))))))
(+ R (* (pow phi1 2) (+ (* -1/8 R) (* (pow phi1 2) (+ (* -1/46080 (* R (pow phi1 2))) (* 1/384 R))))))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(* R (cos (* 1/2 phi1)))
(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 (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* 1/2 (* lambda1 (* phi1 (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda1 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda1 (sin (* 1/2 phi2)))))))
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda1 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda1 (cos (* 1/2 phi2)))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda1 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda1 (sin (* 1/2 phi1)))))))
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda1 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda1 (cos (* 1/2 phi1)))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 lambda1)
(* -1 lambda1)
(* -1 lambda1)
(* -1 lambda1)
(* -1 lambda1)
(* -1 lambda1)
(* -1 lambda1)
(* -1 lambda1)
(* -1 lambda1)
(* -1 lambda1)
(* -1 lambda1)
(* -1 lambda1)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R lambda1) lambda2)
(+ (* -1/8 (/ (* R (* lambda1 (pow phi1 2))) lambda2)) (/ (* R lambda1) lambda2))
(+ (* (pow phi1 2) (+ (* -1/8 (/ (* R lambda1) lambda2)) (* 1/384 (/ (* R (* lambda1 (pow phi1 2))) lambda2)))) (/ (* R lambda1) lambda2))
(+ (* (pow phi1 2) (+ (* -1/8 (/ (* R lambda1) lambda2)) (* (pow phi1 2) (+ (* -1/46080 (/ (* R (* lambda1 (pow phi1 2))) lambda2)) (* 1/384 (/ (* R lambda1) lambda2)))))) (/ (* R lambda1) lambda2))
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R lambda1)
(+ (* -1/8 (* R (* lambda1 (pow phi1 2)))) (* R lambda1))
(+ (* R lambda1) (* (pow phi1 2) (+ (* -1/8 (* R lambda1)) (* 1/384 (* R (* lambda1 (pow phi1 2)))))))
(+ (* R lambda1) (* (pow phi1 2) (+ (* -1/8 (* R lambda1)) (* (pow phi1 2) (+ (* -1/46080 (* R (* lambda1 (pow phi1 2)))) (* 1/384 (* R lambda1)))))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
Outputs
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* R (sqrt (+ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(* 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 (*.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 (*.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 R (*.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 (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 (*.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 (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 (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 (*.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 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 (*.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (*.f64 (/.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 #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 (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 (*.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))) #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 #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 (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 (*.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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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) 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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (*.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 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) (/.f64 R 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 R (/.f64 (+.f64 (*.f64 R phi1) (*.f64 #s(literal -1/2 binary64) (*.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.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 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 R (*.f64 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)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) 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 (*.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 (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 (+.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 #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 (*.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 (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 (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 (+.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 #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 (+.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 #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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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) phi1) (/.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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 (/.f64 (*.f64 R phi2) 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)) (*.f64 (/.f64 (-.f64 lambda1 lambda2) phi1) (/.f64 (-.f64 lambda1 lambda2) phi1)))) (*.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 (-.f64 lambda1 lambda2) phi1) (/.f64 (-.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 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 R (/.f64 (+.f64 (*.f64 R phi2) (*.f64 #s(literal -1/2 binary64) (*.f64 R (/.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) phi1)))) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(*.f64 (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.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 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 (*.f64 R 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 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1))) phi1)) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(* R (sqrt (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (*.f64 R (*.f64 lambda1 (*.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 2 binary64)) 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)))))))) (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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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)))) lambda1))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (+ (* -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)))))))
(*.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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) 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))))))))
(*.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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* 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)))))))))
(*.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 R (*.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 (*.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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (+ (* -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))))))))
(*.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 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* R (* lambda2 (+ (* -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))))))))
(*.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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda1)) (* R (* lambda2 (+ (* -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))))))))
(*.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 R (*.f64 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)) (-.f64 #s(literal 0 binary64) lambda1))
(* R (sqrt (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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) (-.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 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 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 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))))))))
(*.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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2 lambda2)))) (/.f64 (*.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)))) lambda1)) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 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)))))))))
(*.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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2 lambda2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 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 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)))) lambda1)) lambda2)))
(* -1 (* R (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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 (*.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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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)) (-.f64 #s(literal 0 binary64) 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 (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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 (*.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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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)))) lambda2))) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* 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 (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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 #s(literal 0 binary64) (*.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 (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (/.f64 (/.f64 (*.f64 R (*.f64 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))))
(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 (*.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 (*.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 (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 (*.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 (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 (*.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 (*.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 (*.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 (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 (*.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (*.f64 (/.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 #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 (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 (*.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))) #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))))))))))))
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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (*.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 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) (/.f64 #s(literal 1/2 binary64) phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) (/.f64 phi1 (*.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)) (/.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 #s(literal 0 binary64) (*.f64 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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))) phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 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)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) 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 (*.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 (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 (+.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 #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 (+.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 #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 (+.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 #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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 lambda1 lambda2) phi1) (/.f64 (-.f64 lambda1 lambda2) phi1))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 lambda1 lambda2) phi1) (/.f64 (-.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)) (*.f64 (/.f64 (-.f64 lambda1 lambda2) phi1) (/.f64 (-.f64 lambda1 lambda2) phi1))))) (/.f64 phi2 phi1))))
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- 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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1)) phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 (/.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 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) phi1)))) phi1)) phi1)))
(sqrt (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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) (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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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) (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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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) (-.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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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) (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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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)))) lambda1)
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* 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))))))
(*.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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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) 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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)))))))
(*.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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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) 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* 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))))))))
(*.f64 lambda1 (-.f64 (-.f64 (+.f64 (+.f64 (/.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 #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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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) lambda1))
(* -1 (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* 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)))))))
(*.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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* 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)))))))
(*.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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (-.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)))) lambda1))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) lambda1)) (* 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)))))))
(-.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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (/.f64 (/.f64 (*.f64 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 (-.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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda1 (*.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 2 binary64)) lambda2) (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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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)) lambda1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (- (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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) (-.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)) lambda1)))))
(* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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)))) lambda2)
(* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 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)))))))
(*.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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 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))))))))
(*.f64 lambda2 (-.f64 (-.f64 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 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 #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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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)) (*.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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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)) (*.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 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (-.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)))) 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))
(* -1 (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))) (* 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 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (/.f64 (/.f64 (*.f64 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 (-.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))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (*.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (*.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 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)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (*.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) #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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (*.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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (- lambda1 lambda2))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 lambda2))
(* -1 (* 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (* (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)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda1 lambda2))
(+ (* -1 (* lambda2 (+ (* -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)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda1 lambda2))
(+ (* -1 (* lambda2 (+ (* -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)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda1 lambda2))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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)))) lambda1)
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* 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))))))
(*.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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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) 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 (+ (* -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))))))
(*.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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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) 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 (+ (* -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))))))
(*.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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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) 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)))) (* (cos (* 1/2 phi1)) (cos (* 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)))) lambda1)
(* -1 (* lambda1 (+ (* -1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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) 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 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (+ (* -1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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) 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 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (+ (* -1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (/ (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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) 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 #s(literal 0 binary64) lambda1))
(* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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)))) lambda1)
(+ (* -1 (* lambda2 (+ (* -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)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda1 lambda2))
(+ (* -1 (* lambda2 (+ (* -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)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda1 lambda2))
(+ (* -1 (* lambda2 (+ (* -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)))) (* (cos (* 1/2 phi1)) (cos (* 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 lambda1 lambda2))
(* -1 (* 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (+ (* -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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (+ (* -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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (+ (* -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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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)) (*.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 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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)) (*.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 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (+ (* -1 (/ (* lambda1 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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)) (*.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))
(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/2 (sin (* 1/2 phi1))) (* -1/8 (* phi2 (cos (* 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 (+ (* -1/2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (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)))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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/2 (sin (* 1/2 phi2))) (* -1/8 (* phi1 (cos (* 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 (+ (* -1/2 (sin (* 1/2 phi2))) (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (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)))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 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 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 (* 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))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(/ -1 (* R phi1))
(/.f64 #s(literal -1 binary64) (*.f64 R phi1))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* (pow R 2) (pow phi1 2))
(*.f64 (*.f64 phi1 phi1) (*.f64 R R))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 phi1))
(* R (pow phi1 2))
(*.f64 R (*.f64 phi1 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 (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 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) phi2) phi1)))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) phi2) phi1)))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) 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 #s(literal 1/2 binary64) (/.f64 phi1 phi2))))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2))))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2))))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(-.f64 #s(literal 0 binary64) (*.f64 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 #s(literal 0 binary64) (*.f64 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 #s(literal 0 binary64) (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi2) #s(literal -1/2 binary64))))
phi2
(+ phi1 phi2)
(+.f64 phi1 phi2)
(+ phi1 phi2)
(+.f64 phi1 phi2)
(+ phi1 phi2)
(+.f64 phi1 phi2)
phi1
(* phi1 (+ 1 (/ phi2 phi1)))
(*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* phi1 (+ 1 (/ phi2 phi1)))
(*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* phi1 (+ 1 (/ phi2 phi1)))
(*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
phi1
(* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)))
(* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)))
(* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)))
phi1
(+ phi1 phi2)
(+.f64 phi1 phi2)
(+ phi1 phi2)
(+.f64 phi1 phi2)
(+ phi1 phi2)
(+.f64 phi1 phi2)
phi2
(* phi2 (+ 1 (/ phi1 phi2)))
(*.f64 phi2 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (/ phi1 phi2)))
(*.f64 phi2 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (/ phi1 phi2)))
(*.f64 phi2 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
phi2
(* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi1 phi2)) #s(literal -1 binary64)))
(* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi1 phi2)) #s(literal -1 binary64)))
(* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi1 phi2)) #s(literal -1 binary64)))
(* -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 (* 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 (* 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 (* 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 (* 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 (* 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 (* 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 (* 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 (* 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 (* 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 (* 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 (* 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 (* R (* lambda1 (cos (* 1/2 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2)))))) (* 1/2 (* R (* lambda1 (sin (* 1/2 phi2))))))))
(-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 (*.f64 lambda1 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* 1/8 (* R (* lambda1 (cos (* 1/2 phi2))))))))))
(-.f64 (*.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 (*.f64 #s(literal -1/48 binary64) R) (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* -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 (* 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 (* 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 (* 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 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* R (* lambda1 (cos (* 1/2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (* R (* lambda1 (sin (* 1/2 phi1))))))))
(-.f64 (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 (*.f64 lambda1 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* 1/8 (* R (* lambda1 (cos (* 1/2 phi1))))))))))
(-.f64 (*.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 (*.f64 #s(literal -1/48 binary64) R) (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 #s(literal 1/8 binary64) (*.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) phi1))))
(* -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 (* 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 (* 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 (* 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 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -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 (* 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 (* 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 (* 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 (* 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 (* 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 (* 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 (* 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 (* 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 (* 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 (* 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 (* 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)))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* R (* lambda2 (cos (* 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 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* -1 (* R (* lambda2 (cos (* 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 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* -1 (* R (* lambda2 (cos (* 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 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))))
(* lambda2 (+ (* -1 (* R (cos (* 1/2 phi1)))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))
(*.f64 lambda2 (*.f64 R (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))))
(* lambda2 (+ (* -1 (* R (cos (* 1/2 phi1)))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))
(*.f64 lambda2 (*.f64 R (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))))
(* lambda2 (+ (* -1 (* R (cos (* 1/2 phi1)))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))
(*.f64 lambda2 (*.f64 R (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) 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 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))))
(*.f64 (*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))))
(*.f64 (*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))))
(*.f64 (*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (*.f64 R lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (*.f64 R lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (*.f64 R lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (*.f64 R lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (*.f64 R lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (*.f64 R lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (*.f64 R lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* -1 (* R (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (*.f64 R lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* R (* lambda2 (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (*.f64 R lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* R (* lambda2 (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (*.f64 R lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* R (* lambda2 (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (*.f64 R lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* R (* lambda2 (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (*.f64 R lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* -1 (* lambda2 (- R (/ (* R lambda1) lambda2))))
(*.f64 (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(+ (* -1 (* lambda2 (* (pow phi1 2) (- (* -1/8 R) (* -1/8 (/ (* R lambda1) lambda2)))))) (* -1 (* lambda2 (- R (/ (* R lambda1) lambda2)))))
(-.f64 (*.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 #s(literal -1/8 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 lambda2 (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))))
(+ (* -1 (* lambda2 (- R (/ (* R lambda1) lambda2)))) (* (pow phi1 2) (+ (* -1 (* lambda2 (* (pow phi1 2) (- (* 1/384 R) (* 1/384 (/ (* R lambda1) lambda2)))))) (* -1 (* lambda2 (- (* -1/8 R) (* -1/8 (/ (* R lambda1) lambda2))))))))
(-.f64 (*.f64 (*.f64 phi1 phi1) (-.f64 (*.f64 (neg.f64 (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 #s(literal 1/384 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (*.f64 lambda2 (*.f64 #s(literal -1/8 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))))) (*.f64 lambda2 (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))))
(+ (* -1 (* lambda2 (- R (/ (* R lambda1) lambda2)))) (* (pow phi1 2) (+ (* -1 (* lambda2 (- (* -1/8 R) (* -1/8 (/ (* R lambda1) lambda2))))) (* (pow phi1 2) (+ (* -1 (* lambda2 (* (pow phi1 2) (- (* -1/46080 R) (* -1/46080 (/ (* R lambda1) lambda2)))))) (* -1 (* lambda2 (- (* 1/384 R) (* 1/384 (/ (* R lambda1) lambda2))))))))))
(-.f64 (*.f64 (*.f64 phi1 phi1) (-.f64 (*.f64 (*.f64 phi1 phi1) (-.f64 (*.f64 (neg.f64 (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 #s(literal -1/46080 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (*.f64 lambda2 (*.f64 #s(literal 1/384 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))))) (*.f64 lambda2 (*.f64 #s(literal -1/8 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))))) (*.f64 lambda2 (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(*.f64 (*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(*.f64 (*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(*.f64 (*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(*.f64 (*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(*.f64 (*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(*.f64 (*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(*.f64 (*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(*.f64 (*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))) (-.f64 #s(literal 0 binary64) 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))))) (* R (* lambda1 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 R lambda1) (cos.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))))) (* R (* lambda1 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 R lambda1) (cos.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))))) (* R (* lambda1 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1)) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 phi1)))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 phi1)))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 phi1)))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) lambda1))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* R (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* -1 (* R (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(-.f64 #s(literal 0 binary64) (*.f64 R (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))))
(* -1 (* R (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(-.f64 #s(literal 0 binary64) (*.f64 R (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))))
(* -1 (* R (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(-.f64 #s(literal 0 binary64) (*.f64 R (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))))
(* -1 (* R (- (* -1 (cos (* 1/2 phi1))) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(-.f64 #s(literal 0 binary64) (*.f64 R (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))))
(- R (/ (* R lambda1) lambda2))
(-.f64 R (/.f64 (*.f64 R lambda1) lambda2))
(- (+ R (* (pow phi1 2) (- (* -1/8 R) (* -1/8 (/ (* R lambda1) lambda2))))) (/ (* R lambda1) lambda2))
(+.f64 R (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 #s(literal -1/8 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (/.f64 (*.f64 R lambda1) lambda2)))
(- (+ R (* (pow phi1 2) (- (+ (* -1/8 R) (* (pow phi1 2) (- (* 1/384 R) (* 1/384 (/ (* R lambda1) lambda2))))) (* -1/8 (/ (* R lambda1) lambda2))))) (/ (* R lambda1) lambda2))
(+.f64 R (-.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 R #s(literal -1/8 binary64)) (+.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 #s(literal 1/384 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 R lambda1) lambda2))))) (/.f64 (*.f64 R lambda1) lambda2)))
(- (+ R (* (pow phi1 2) (- (+ (* -1/8 R) (* (pow phi1 2) (- (+ (* 1/384 R) (* (pow phi1 2) (- (* -1/46080 R) (* -1/46080 (/ (* R lambda1) lambda2))))) (* 1/384 (/ (* R lambda1) lambda2))))) (* -1/8 (/ (* R lambda1) lambda2))))) (/ (* R lambda1) lambda2))
(+.f64 R (-.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 R #s(literal -1/8 binary64)) (+.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 R #s(literal 1/384 binary64)) (+.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 #s(literal -1/46080 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) #s(literal -1/384 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 R lambda1) lambda2))))) (/.f64 (*.f64 R lambda1) lambda2)))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 #s(literal 0 binary64) lambda2))
(* lambda1 (- (/ (* R (cos (* 1/2 phi1))) lambda1) (/ (* R (cos (* 1/2 phi1))) lambda2)))
(*.f64 lambda1 (-.f64 (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1) (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
(* lambda1 (- (/ (* R (cos (* 1/2 phi1))) lambda1) (/ (* R (cos (* 1/2 phi1))) lambda2)))
(*.f64 lambda1 (-.f64 (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1) (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
(* lambda1 (- (/ (* R (cos (* 1/2 phi1))) lambda1) (/ (* R (cos (* 1/2 phi1))) lambda2)))
(*.f64 lambda1 (-.f64 (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1) (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
(* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 phi1))) lambda1)) (* -1 (/ (* R (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) lambda1) (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 phi1))) lambda1)) (* -1 (/ (* R (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) lambda1) (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 phi1))) lambda1)) (* -1 (/ (* R (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) lambda1) (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 #s(literal 0 binary64) lambda2))
(/ (- (* R (* lambda2 (cos (* 1/2 phi1)))) (* R (* lambda1 (cos (* 1/2 phi1))))) lambda2)
(/.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1))) lambda2)
(/ (- (* R (* lambda2 (cos (* 1/2 phi1)))) (* R (* lambda1 (cos (* 1/2 phi1))))) lambda2)
(/.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1))) lambda2)
(/ (- (* R (* lambda2 (cos (* 1/2 phi1)))) (* R (* lambda1 (cos (* 1/2 phi1))))) lambda2)
(/.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1))) lambda2)
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* R (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2)))
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* -1 lambda2)
(-.f64 #s(literal 0 binary64) lambda2)
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
R
(+ R (* -1/8 (* R (pow phi1 2))))
(+.f64 R (*.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 phi1 phi1))))
(+ R (* (pow phi1 2) (+ (* -1/8 R) (* 1/384 (* R (pow phi1 2))))))
(+.f64 R (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 R #s(literal -1/8 binary64)) (*.f64 (*.f64 R (*.f64 phi1 phi1)) #s(literal 1/384 binary64)))))
(+ R (* (pow phi1 2) (+ (* -1/8 R) (* (pow phi1 2) (+ (* -1/46080 (* R (pow phi1 2))) (* 1/384 R))))))
(+.f64 R (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 R #s(literal -1/8 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 R #s(literal 1/384 binary64)) (*.f64 (*.f64 R (*.f64 phi1 phi1)) #s(literal -1/46080 binary64)))))))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (cos (* 1/2 phi1)))
(*.f64 R (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)) (* -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 #s(literal -1/46080 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 phi1))) (*.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 (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 #s(literal 0 binary64) lambda1))
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* 1/2 (* lambda1 (* phi1 (sin (* 1/2 phi2))))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1))
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda1 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda1 (sin (* 1/2 phi2)))))))
(-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 lambda1 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1))
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda1 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda1 (cos (* 1/2 phi2)))))))))
(-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal -1/48 binary64)) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) lambda1))
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1))))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1))
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda1 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda1 (sin (* 1/2 phi1)))))))
(-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 lambda1 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1))
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda1 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda1 (cos (* 1/2 phi1)))))))))
(-.f64 (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R lambda1) lambda2)
(/.f64 (*.f64 R lambda1) lambda2)
(+ (* -1/8 (/ (* R (* lambda1 (pow phi1 2))) lambda2)) (/ (* R lambda1) lambda2))
(+.f64 (/.f64 (*.f64 R lambda1) lambda2) (/.f64 (*.f64 (*.f64 R #s(literal -1/8 binary64)) (*.f64 lambda1 (*.f64 phi1 phi1))) lambda2))
(+ (* (pow phi1 2) (+ (* -1/8 (/ (* R lambda1) lambda2)) (* 1/384 (/ (* R (* lambda1 (pow phi1 2))) lambda2)))) (/ (* R lambda1) lambda2))
(+.f64 (/.f64 (*.f64 R lambda1) lambda2) (*.f64 (*.f64 phi1 phi1) (+.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 R lambda1)) lambda2) (/.f64 (*.f64 (*.f64 R #s(literal 1/384 binary64)) (*.f64 lambda1 (*.f64 phi1 phi1))) lambda2))))
(+ (* (pow phi1 2) (+ (* -1/8 (/ (* R lambda1) lambda2)) (* (pow phi1 2) (+ (* -1/46080 (/ (* R (* lambda1 (pow phi1 2))) lambda2)) (* 1/384 (/ (* R lambda1) lambda2)))))) (/ (* R lambda1) lambda2))
(+.f64 (/.f64 (*.f64 R lambda1) lambda2) (*.f64 (*.f64 phi1 phi1) (+.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 R lambda1)) lambda2) (*.f64 (*.f64 phi1 phi1) (+.f64 (/.f64 (*.f64 (*.f64 R lambda1) #s(literal 1/384 binary64)) lambda2) (/.f64 (*.f64 (*.f64 R #s(literal -1/46080 binary64)) (*.f64 lambda1 (*.f64 phi1 phi1))) lambda2))))))
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R lambda1)
(*.f64 R lambda1)
(+ (* -1/8 (* R (* lambda1 (pow phi1 2)))) (* R lambda1))
(+.f64 (*.f64 R lambda1) (*.f64 (*.f64 R #s(literal -1/8 binary64)) (*.f64 lambda1 (*.f64 phi1 phi1))))
(+ (* R lambda1) (* (pow phi1 2) (+ (* -1/8 (* R lambda1)) (* 1/384 (* R (* lambda1 (pow phi1 2)))))))
(+.f64 (*.f64 R lambda1) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 R lambda1)) (*.f64 (*.f64 R #s(literal 1/384 binary64)) (*.f64 lambda1 (*.f64 phi1 phi1))))))
(+ (* R lambda1) (* (pow phi1 2) (+ (* -1/8 (* R lambda1)) (* (pow phi1 2) (+ (* -1/46080 (* R (* lambda1 (pow phi1 2)))) (* 1/384 (* R lambda1)))))))
(+.f64 (*.f64 R lambda1) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 R lambda1)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 R #s(literal -1/46080 binary64)) (*.f64 lambda1 (*.f64 phi1 phi1))) (*.f64 (*.f64 R lambda1) #s(literal 1/384 binary64)))))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))

eval491.0ms (1.4%)

Compiler

Compiled 41157 to 2909 computations (92.9% saved)

prune562.0ms (1.6%)

Pruning

55 alts after pruning (49 fresh and 6 done)

PrunedKeptTotal
New1245191264
Fresh83038
Picked325
Done044
Total1256551311
Accuracy
100.0%
Counts
1311 → 55
Alt Table
Click to see full alt table
StatusAccuracyProgram
12.2%
(/.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 R (*.f64 phi1 phi1))) R)
12.2%
(/.f64 (/.f64 #s(literal 1 binary64) R) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))))
17.3%
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (*.f64 R phi1))
6.1%
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 R R))))))
17.3%
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))))
27.8%
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 R phi1)))
24.3%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
25.0%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
55.5%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
15.4%
(+.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/46080 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 (*.f64 R lambda2) #s(literal 1/384 binary64)))))))
✓12.5%
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 R lambda1))
12.7%
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 R (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 #s(literal -1/8 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (/.f64 (*.f64 R lambda1) lambda2))))
11.6%
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))))
10.5%
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
11.5%
(*.f64 (+.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)))) (*.f64 R lambda1))
32.9%
(*.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)))))
22.6%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
✓23.7%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
9.3%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
8.1%
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
15.8%
(*.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)))))
15.3%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
22.5%
(*.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)))))
✓12.5%
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
55.9%
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
✓99.8%
(*.f64 R (hypot.f64 (/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
92.4%
(*.f64 R (hypot.f64 (/.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
97.6%
(*.f64 R (hypot.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 phi1 phi2)))
41.4%
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (/.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
75.7%
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda1)) (-.f64 phi1 phi2)))
67.7%
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi1))
77.1%
(*.f64 R (hypot.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 phi1 phi2)))
72.5%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 phi1 phi2)))
82.9%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 #s(literal -1/2 binary64))))) (-.f64 phi1 phi2)))
73.9%
(*.f64 R (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
22.5%
(*.f64 R (hypot.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 1 binary64))) (-.f64 phi1 phi2)))
68.9%
(*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2)))
20.9%
(*.f64 R (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 lambda1 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1)))
15.8%
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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)))
53.3%
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
13.6%
(*.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)))) lambda1))
15.3%
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
10.5%
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
24.8%
(*.f64 R (*.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)))
20.8%
(*.f64 R (*.f64 (+.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))))) (neg.f64 lambda1)))
11.4%
(*.f64 R (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
17.7%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda1 lambda1)) (+.f64 #s(literal 0 binary64) lambda1))))
24.3%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))
25.0%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))
52.6%
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
✓32.0%
(*.f64 R phi2)
✓26.4%
(*.f64 R lambda2)
10.6%
(neg.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
22.3%
(neg.f64 (*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))
27.9%
(neg.f64 (*.f64 R phi1))
Compiler

Compiled 3035 to 1231 computations (59.4% saved)

regimes466.0ms (1.3%)

Counts
92 → 1
Calls
Call 1
Inputs
(*.f64 R lambda2)
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 R phi1)))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))))
(*.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 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
(/.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 R (*.f64 phi1 phi1))) R)
(neg.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 R R))))))
(/.f64 (/.f64 #s(literal 1 binary64) R) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 R (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 #s(literal -1/8 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (/.f64 (*.f64 R lambda1) 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/46080 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 (*.f64 R lambda2) #s(literal 1/384 binary64)))))))
(*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2)))
(*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2)))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi1))
(*.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 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(neg.f64 (*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 R lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda1 lambda1)) (+.f64 #s(literal 0 binary64) lambda1))))
(*.f64 R (hypot.f64 (+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (-.f64 lambda1 lambda2))))) lambda2)) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) phi1)) (*.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) phi2)))) lambda2)) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.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 #s(literal 1/2 binary64) phi2))) (-.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 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda1)) (-.f64 phi1 phi2)))
(*.f64 (+.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)))) (*.f64 R lambda1))
(*.f64 R (*.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)))
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
(*.f64 R (hypot.f64 (/.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2)) lambda1)) (neg.f64 lambda1))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (/.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 #s(literal -1/2 binary64))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (-.f64 phi1 phi2)))
(*.f64 R (*.f64 (+.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))))) (neg.f64 lambda1)))
(*.f64 R (hypot.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal -1/2 binary64) phi1))) (-.f64 phi1 phi2)))
(*.f64 R (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 lambda1 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1)))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(*.f64 R (hypot.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 1 binary64))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 1 binary64))) (-.f64 phi1 phi2)))
(*.f64 R (*.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 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)))) lambda1))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 R lambda1))
(*.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 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 R (hypot.f64 (/.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal -1/8 binary64) phi2)) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (/.f64 (+.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)))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal -1/8 binary64) phi2))))) (-.f64 phi1 phi2)))
(*.f64 (fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 R lambda1))
(*.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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 phi1 phi2)))
(*.f64 R (hypot.f64 (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 #s(literal 1/48 binary64))))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (/.f64 (fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.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) phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 phi1 phi2)))
Outputs
(*.f64 R (hypot.f64 (/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
Calls

9 calls:

66.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)))
50.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))))
40.0ms
R
40.0ms
lambda1
39.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)))))
Results
AccuracySegmentsBranch
99.8%1R
99.8%1lambda1
99.8%1lambda2
99.8%1phi1
99.8%1phi2
99.8%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.8%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.8%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.8%1(-.f64 lambda1 lambda2)
Compiler

Compiled 144 to 79 computations (45.1% saved)

regimes397.0ms (1.1%)

Counts
90 → 1
Calls
Call 1
Inputs
(*.f64 R lambda2)
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 R phi1)))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))))
(*.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 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
(/.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 R (*.f64 phi1 phi1))) R)
(neg.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 R R))))))
(/.f64 (/.f64 #s(literal 1 binary64) R) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 R (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 #s(literal -1/8 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (/.f64 (*.f64 R lambda1) 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/46080 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 (*.f64 R lambda2) #s(literal 1/384 binary64)))))))
(*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2)))
(*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2)))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi1))
(*.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 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(neg.f64 (*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 R lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda1 lambda1)) (+.f64 #s(literal 0 binary64) lambda1))))
(*.f64 R (hypot.f64 (+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (-.f64 lambda1 lambda2))))) lambda2)) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) phi1)) (*.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) phi2)))) lambda2)) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.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 #s(literal 1/2 binary64) phi2))) (-.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 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda1)) (-.f64 phi1 phi2)))
(*.f64 (+.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)))) (*.f64 R lambda1))
(*.f64 R (*.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)))
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (*.f64 (*.f64 lambda1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 R (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) lambda2))))
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda1)))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))
(*.f64 R (hypot.f64 (/.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2)) lambda1)) (neg.f64 lambda1))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (/.f64 (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 #s(literal -1/2 binary64))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1)))) (-.f64 phi1 phi2)))
(*.f64 R (*.f64 (+.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))))) (neg.f64 lambda1)))
(*.f64 R (hypot.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal -1/2 binary64) phi1))) (-.f64 phi1 phi2)))
(*.f64 R (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 lambda1 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1)))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(*.f64 R (hypot.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 1 binary64))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 1 binary64))) (-.f64 phi1 phi2)))
(*.f64 R (*.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 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)))) lambda1))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 R lambda1))
(*.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 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 R (hypot.f64 (/.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal -1/8 binary64) phi2)) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (/.f64 (+.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)))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal -1/8 binary64) phi2))))) (-.f64 phi1 phi2)))
(*.f64 (fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 R lambda1))
(*.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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 phi1 phi2)))
(*.f64 R (hypot.f64 (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (+.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 #s(literal 1/48 binary64))))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (/.f64 (fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
Outputs
(*.f64 R (hypot.f64 (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
Calls

9 calls:

64.0ms
phi2
40.0ms
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
38.0ms
R
37.0ms
lambda1
37.0ms
(-.f64 lambda1 lambda2)
Results
AccuracySegmentsBranch
99.8%1R
99.8%1lambda1
99.8%1lambda2
99.8%1phi1
99.8%1phi2
99.8%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.8%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.8%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.8%1(-.f64 lambda1 lambda2)
Compiler

Compiled 144 to 79 computations (45.1% saved)

regimes388.0ms (1.1%)

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

66.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)))))
45.0ms
R
45.0ms
lambda2
36.0ms
(-.f64 lambda1 lambda2)
36.0ms
phi1
Results
AccuracySegmentsBranch
97.6%1R
97.6%1lambda1
97.6%1lambda2
97.6%1phi1
97.6%1phi2
97.6%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)))))
97.6%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))))
97.6%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)))
97.6%1(-.f64 lambda1 lambda2)
Compiler

Compiled 144 to 79 computations (45.1% saved)

regimes171.0ms (0.5%)

Counts
50 → 2
Calls
Call 1
Inputs
(*.f64 R lambda2)
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 R phi1)))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))))
(*.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 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
(/.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 R (*.f64 phi1 phi1))) R)
(neg.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 R R))))))
(/.f64 (/.f64 #s(literal 1 binary64) R) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 R (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 #s(literal -1/8 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (/.f64 (*.f64 R lambda1) 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/46080 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 (*.f64 R lambda2) #s(literal 1/384 binary64)))))))
(*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2)))
(*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2)))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi1))
(*.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 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(neg.f64 (*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 R lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda1 lambda1)) (+.f64 #s(literal 0 binary64) lambda1))))
(*.f64 R (hypot.f64 (+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (-.f64 lambda1 lambda2))))) lambda2)) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) phi1)) (*.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) phi2)))) lambda2)) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.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 #s(literal 1/2 binary64) phi2))) (-.f64 phi1 phi2)))
Outputs
(*.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 #s(literal 1/2 binary64) phi2))) (-.f64 phi1 phi2)))
Calls

6 calls:

38.0ms
R
27.0ms
phi1
21.0ms
phi2
21.0ms
lambda1
21.0ms
(-.f64 lambda1 lambda2)
Results
AccuracySegmentsBranch
92.4%1(-.f64 lambda1 lambda2)
92.4%1R
92.4%1lambda1
92.4%1lambda2
97.5%2phi1
97.5%2phi2
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes169.0ms (0.5%)

Counts
49 → 1
Calls
Call 1
Inputs
(*.f64 R lambda2)
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 R phi1)))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))))
(*.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 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
(/.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 R (*.f64 phi1 phi1))) R)
(neg.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 R R))))))
(/.f64 (/.f64 #s(literal 1 binary64) R) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 R (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 #s(literal -1/8 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (/.f64 (*.f64 R lambda1) 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/46080 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 (*.f64 R lambda2) #s(literal 1/384 binary64)))))))
(*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2)))
(*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2)))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi1))
(*.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 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(neg.f64 (*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 R lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda1 lambda1)) (+.f64 #s(literal 0 binary64) lambda1))))
(*.f64 R (hypot.f64 (+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (-.f64 lambda1 lambda2))))) lambda2)) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) phi1)) (*.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) phi2)))) lambda2)) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
(*.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:

37.0ms
lambda2
32.0ms
(-.f64 lambda1 lambda2)
21.0ms
lambda1
21.0ms
R
20.0ms
phi1
Results
AccuracySegmentsBranch
92.1%1R
92.1%1lambda2
92.1%1lambda1
92.1%1(-.f64 lambda1 lambda2)
92.1%1phi2
92.1%1phi1
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes148.0ms (0.4%)

Counts
48 → 2
Calls
Call 1
Inputs
(*.f64 R lambda2)
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 R phi1)))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))))
(*.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 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
(/.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 R (*.f64 phi1 phi1))) R)
(neg.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 R R))))))
(/.f64 (/.f64 #s(literal 1 binary64) R) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 R (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 #s(literal -1/8 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (/.f64 (*.f64 R lambda1) 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/46080 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 (*.f64 R lambda2) #s(literal 1/384 binary64)))))))
(*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2)))
(*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2)))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi1))
(*.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 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(neg.f64 (*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 R lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda1 lambda1)) (+.f64 #s(literal 0 binary64) lambda1))))
(*.f64 R (hypot.f64 (+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (-.f64 lambda1 lambda2))))) lambda2)) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) phi1)) (*.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) phi2)))) lambda2)) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
Outputs
(*.f64 R (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2)))
Calls

6 calls:

25.0ms
lambda1
25.0ms
lambda2
22.0ms
phi2
21.0ms
R
20.0ms
(-.f64 lambda1 lambda2)
Results
AccuracySegmentsBranch
79.9%2R
81.0%3lambda1
81.8%2lambda2
85.5%2phi1
83.3%2phi2
79.6%2(-.f64 lambda1 lambda2)
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes54.0ms (0.2%)

Counts
47 → 2
Calls
Call 1
Inputs
(*.f64 R lambda2)
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 R phi1)))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))))
(*.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 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
(/.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 R (*.f64 phi1 phi1))) R)
(neg.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 R R))))))
(/.f64 (/.f64 #s(literal 1 binary64) R) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 R (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 #s(literal -1/8 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (/.f64 (*.f64 R lambda1) 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/46080 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 (*.f64 R lambda2) #s(literal 1/384 binary64)))))))
(*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2)))
(*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2)))
(*.f64 R (hypot.f64 (-.f64 lambda1 lambda2) phi1))
(*.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 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(neg.f64 (*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 R lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 lambda1 lambda1)) (+.f64 #s(literal 0 binary64) lambda1))))
(*.f64 R (hypot.f64 (+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (-.f64 lambda1 lambda2))))) lambda2)) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (+.f64 lambda1 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) phi1)) (*.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) phi2)))) lambda2)) (-.f64 phi1 phi2)))
Outputs
(*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2)))
(*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2)))
Calls

1 calls:

44.0ms
phi1
Results
AccuracySegmentsBranch
83.6%2phi1
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes29.0ms (0.1%)

Counts
21 → 2
Calls
Call 1
Inputs
(*.f64 R lambda2)
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 R phi1)))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))))
(*.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 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
(/.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 R (*.f64 phi1 phi1))) R)
(neg.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 R R))))))
(/.f64 (/.f64 #s(literal 1 binary64) R) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 R (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 #s(literal -1/8 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (/.f64 (*.f64 R lambda1) 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/46080 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 (*.f64 R lambda2) #s(literal 1/384 binary64)))))))
(*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2)))
Outputs
(*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2)))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
Calls

2 calls:

11.0ms
phi2
10.0ms
phi1
Results
AccuracySegmentsBranch
82.6%2phi2
73.2%2phi1
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes77.0ms (0.2%)

Counts
20 → 2
Calls
Call 1
Inputs
(*.f64 R lambda2)
(*.f64 R phi2)
(neg.f64 (*.f64 R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 R phi1)))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))) (*.f64 R phi1))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi1) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 phi1 (*.f64 R phi1))))))
(*.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 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))))
(/.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1))) (*.f64 R (*.f64 phi1 phi1))) R)
(neg.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi1)) (*.f64 R phi1)) (*.f64 (*.f64 R phi1) (*.f64 phi1 (*.f64 R (*.f64 R phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 R (*.f64 phi1 (*.f64 R phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 R R))))))
(/.f64 (/.f64 #s(literal 1 binary64) R) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 (*.f64 R (*.f64 R phi1))) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 R (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 #s(literal -1/8 binary64) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (/.f64 (*.f64 R lambda1) 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/46080 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi1))) (*.f64 (*.f64 R lambda2) #s(literal 1/384 binary64)))))))
Outputs
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(*.f64 R lambda2)
Calls

5 calls:

34.0ms
lambda1
10.0ms
R
10.0ms
phi1
10.0ms
phi2
10.0ms
lambda2
Results
AccuracySegmentsBranch
63.3%4phi1
59.6%2lambda1
59.4%3R
62.8%2lambda2
62.1%3phi2
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes16.0ms (0%)

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

3 calls:

5.0ms
phi2
5.0ms
lambda2
4.0ms
phi1
Results
AccuracySegmentsBranch
56.1%2phi1
60.2%3phi2
60.2%2lambda2
Compiler

Compiled 18 to 15 computations (16.7% saved)

regimes23.0ms (0.1%)

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

5 calls:

5.0ms
phi2
4.0ms
lambda2
4.0ms
R
4.0ms
phi1
4.0ms
lambda1
Results
AccuracySegmentsBranch
52.6%2phi1
39.5%5R
56.4%3phi2
40.8%3lambda1
46.9%4lambda2
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes8.0ms (0%)

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

2 calls:

3.0ms
phi2
3.0ms
phi1
Results
AccuracySegmentsBranch
34.9%2phi1
47.2%2phi2
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes13.0ms (0%)

Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

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

5 calls:

2.0ms
lambda2
2.0ms
phi1
2.0ms
lambda1
2.0ms
phi2
2.0ms
R
Results
AccuracySegmentsBranch
26.4%1phi1
26.4%1R
26.4%1lambda1
26.4%1lambda2
26.4%1phi2
Compiler

Compiled 30 to 25 computations (16.7% saved)

bsearch51.0ms (0.1%)

Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
44.0ms
-12068655.063095309
-1839023.138703466
Results
25.0ms80×0valid
11.0ms16×1valid
Compiler

Compiled 285 to 192 computations (32.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 25.0ms
ival-mult: 9.0ms (36.6% of total)
ival-cos: 5.0ms (20.3% of total)
ival-add: 3.0ms (12.2% of total)
ival-sub: 3.0ms (12.2% of total)
ival-div: 2.0ms (8.1% of total)
ival-sqrt: 2.0ms (8.1% of total)
backward-pass: 1.0ms (4.1% of total)
const: 0.0ms (0% of total)

bsearch111.0ms (0.3%)

Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
100.0ms
-3.430029626030366e+41
-4.524924295922786e+36
Results
70.0ms84×1valid
17.0ms60×0valid
Compiler

Compiled 324 to 222 computations (31.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 64.0ms
backward-pass: 18.0ms (28.3% of total)
ival-mult: 17.0ms (26.8% of total)
ival-cos: 9.0ms (14.2% of total)
ival-sub: 6.0ms (9.4% of total)
ival-add: 5.0ms (7.9% of total)
ival-div: 4.0ms (6.3% of total)
ival-sqrt: 4.0ms (6.3% of total)
const: 0.0ms (0% of total)

bsearch27.0ms (0.1%)

Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
23.0ms
-6.255027670290246e+84
-4.858786325143493e+84
Results
10.0ms34×0valid
9.0ms14×1valid
Compiler

Compiled 123 to 78 computations (36.6% saved)

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

bsearch88.0ms (0.2%)

Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
70.0ms
507.8950571846947
989010238.9104358
Results
39.0ms116×0valid
18.0ms28×1valid
Compiler

Compiled 297 to 204 computations (31.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 37.0ms
ival-mult: 12.0ms (32.4% of total)
ival-cos: 9.0ms (24.3% of total)
ival-sub: 5.0ms (13.5% of total)
ival-add: 4.0ms (10.8% of total)
ival-div: 3.0ms (8.1% of total)
ival-sqrt: 3.0ms (8.1% of total)
backward-pass: 1.0ms (2.7% of total)
const: 0.0ms (0% of total)

bsearch71.0ms (0.2%)

Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
55.0ms
1.3948058315485447e+203
8.583836046938062e+204
Results
25.0ms40×1valid
20.0ms72×0valid
Compiler

Compiled 213 to 143 computations (32.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 31.0ms
ival-mult: 11.0ms (35.7% of total)
ival-cos: 5.0ms (16.2% of total)
ival-add: 4.0ms (13% of total)
ival-sub: 4.0ms (13% of total)
ival-sqrt: 3.0ms (9.7% of total)
ival-div: 2.0ms (6.5% of total)
backward-pass: 2.0ms (6.5% of total)
const: 0.0ms (0% of total)

bsearch120.0ms (0.3%)

Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
110.0ms
9.913640377455949e+116
6.07802999331971e+141
Results
60.0ms123×0valid
33.0ms53×1valid
Compiler

Compiled 309 to 222 computations (28.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 73.0ms
ival-mult: 44.0ms (60.6% of total)
ival-cos: 7.0ms (9.6% of total)
ival-sub: 6.0ms (8.3% of total)
ival-add: 5.0ms (6.9% of total)
ival-div: 4.0ms (5.5% of total)
ival-sqrt: 4.0ms (5.5% of total)
backward-pass: 2.0ms (2.8% of total)
const: 0.0ms (0% of total)

bsearch128.0ms (0.4%)

Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
64.0ms
8.833044637360098e-8
0.00624226833377287
50.0ms
2.840409799311614e-138
2.6839695297613844e-136
Results
56.0ms204×0valid
34.0ms52×1valid
Compiler

Compiled 340 to 255 computations (25% saved)

Precisions
Click to see histograms. Total time spent on operations: 61.0ms
ival-mult: 22.0ms (36.1% of total)
ival-cos: 9.0ms (14.8% of total)
ival-add: 8.0ms (13.1% of total)
ival-sub: 8.0ms (13.1% of total)
ival-div: 5.0ms (8.2% of total)
ival-sqrt: 5.0ms (8.2% of total)
backward-pass: 2.0ms (3.3% of total)
const: 1.0ms (1.6% of total)

bsearch101.0ms (0.3%)

Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
62.0ms
8.833044637360098e-8
0.00624226833377287
Results
33.0ms119×0valid
16.0ms25×1valid
Compiler

Compiled 207 to 150 computations (27.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 33.0ms
ival-mult: 12.0ms (35.9% of total)
ival-sub: 5.0ms (15% of total)
ival-cos: 5.0ms (15% of total)
ival-add: 4.0ms (12% of total)
ival-div: 3.0ms (9% of total)
ival-sqrt: 3.0ms (9% of total)
backward-pass: 1.0ms (3% of total)
const: 0.0ms (0% of total)

simplify33.0ms (0.1%)

Algorithm
1×egg-herbie
Rules
66×*-commutative_binary64
32×+-commutative_binary64
30×sub-neg_binary64
20×neg-mul-1_binary64
18×neg-sub0_binary64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
092248
1142248
2177248
3195248
4204248
5205248
Stop Event
1×saturated
Calls
Call 1
Inputs
(*.f64 R (hypot.f64 (/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
(if (<=.f64 phi1 #s(literal -1850000 binary64)) (*.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 #s(literal 1/2 binary64) phi2))) (-.f64 phi1 phi2))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
(if (<=.f64 phi1 #s(literal -1300000000000000027402925499364184948736 binary64)) (*.f64 R (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2))) (*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2))))
(if (<=.f64 phi1 #s(literal -5500000000000000425556141108239991042073029547106875448587807937953207761507526377472 binary64)) (*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2))))
(if (<=.f64 phi2 #s(literal 800000000 binary64)) (*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(if (<=.f64 lambda2 #s(literal 139999999999999994946809152784896368739222973299111496129283422501764553775429509472055005820319707767884913902971252584040979937240964318922793194831577509286410340108027801949929706625469995964109422592 binary64)) (*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2))) (*.f64 R lambda2))
(if (<=.f64 lambda2 #s(literal 549999999999999971315058353462014582660210807404198418543407162305450032647103757363140550794271496854721486315757106014767410053120 binary64)) (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))) (*.f64 R lambda2))
(if (<=.f64 phi2 #s(literal 4273738777669203/418993997810706159361688281193932691483730181893512293053861295116305125939798343025058571817715732115313495568327689089179808837873330310826051531440128 binary64)) (neg.f64 (*.f64 R phi1)) (if (<=.f64 phi2 #s(literal 7148113328562451/2305843009213693952 binary64)) (*.f64 R lambda2) (*.f64 R phi2)))
(if (<=.f64 phi2 #s(literal 3423715700080493/147573952589676412928 binary64)) (*.f64 R lambda2) (*.f64 R phi2))
(*.f64 R lambda2)
Outputs
(*.f64 R (hypot.f64 (/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.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)))
(if (<=.f64 phi1 #s(literal -1850000 binary64)) (*.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 #s(literal 1/2 binary64) phi2))) (-.f64 phi1 phi2))))
(if (<=.f64 phi1 #s(literal -1850000 binary64)) (*.f64 R (hypot.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2))) (*.f64 R (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
(if (<=.f64 phi1 #s(literal -1300000000000000027402925499364184948736 binary64)) (*.f64 R (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2))) (*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2))))
(if (<=.f64 phi1 #s(literal -1300000000000000027402925499364184948736 binary64)) (*.f64 R (hypot.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (-.f64 phi1 phi2))) (*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2))))
(if (<=.f64 phi1 #s(literal -5500000000000000425556141108239991042073029547106875448587807937953207761507526377472 binary64)) (*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 R (hypot.f64 phi2 (-.f64 lambda1 lambda2))))
(if (<=.f64 phi2 #s(literal 800000000 binary64)) (*.f64 R (hypot.f64 phi1 (-.f64 lambda1 lambda2))) (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(if (<=.f64 lambda2 #s(literal 139999999999999994946809152784896368739222973299111496129283422501764553775429509472055005820319707767884913902971252584040979937240964318922793194831577509286410340108027801949929706625469995964109422592 binary64)) (*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2))) (*.f64 R lambda2))
(if (<=.f64 lambda2 #s(literal 549999999999999971315058353462014582660210807404198418543407162305450032647103757363140550794271496854721486315757106014767410053120 binary64)) (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))) (*.f64 R lambda2))
(if (<=.f64 phi2 #s(literal 4273738777669203/418993997810706159361688281193932691483730181893512293053861295116305125939798343025058571817715732115313495568327689089179808837873330310826051531440128 binary64)) (neg.f64 (*.f64 R phi1)) (if (<=.f64 phi2 #s(literal 7148113328562451/2305843009213693952 binary64)) (*.f64 R lambda2) (*.f64 R phi2)))
(if (<=.f64 phi2 #s(literal 4273738777669203/418993997810706159361688281193932691483730181893512293053861295116305125939798343025058571817715732115313495568327689089179808837873330310826051531440128 binary64)) (-.f64 #s(literal 0 binary64) (*.f64 R phi1)) (if (<=.f64 phi2 #s(literal 7148113328562451/2305843009213693952 binary64)) (*.f64 R lambda2) (*.f64 R phi2)))
(if (<=.f64 phi2 #s(literal 3423715700080493/147573952589676412928 binary64)) (*.f64 R lambda2) (*.f64 R phi2))
(*.f64 R lambda2)

soundness6.5s (17.9%)

Rules
7984×*-lowering-*.f32
7984×*-lowering-*.f64
7318×*-lowering-*.f32
7318×*-lowering-*.f64
6414×*-lowering-*.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0213822919
1640822314
0822422314
044209
1214202
21926202
011570202
01716
13416
28316
331716
4152216
5514516
0813816
07456936
126156244
084816244
0161823189
1574722789
0813822789
053280
1289205
22563205
08168205
01749
18849
276849
0843349
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
Compiler

Compiled 1384 to 852 computations (38.4% saved)

preprocess294.0ms (0.8%)

Remove

(sort phi1 phi2)

(sort lambda1 lambda2)

(negabs R)

Compiler

Compiled 1472 to 758 computations (48.5% saved)

end0.0ms (0%)

Profiling

Loading profile data...