Equirectangular approximation to distance on a great circle

Time bar (total: 18.5s)

analyze703.0ms (3.8%)

Algorithm
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: 335.0ms
ival-mult: 156.0ms (46.6% of total)
ival-sub: 51.0ms (15.2% of total)
ival-add: 37.0ms (11.1% of total)
ival-cos: 34.0ms (10.2% of total)
ival-div: 26.0ms (7.8% of total)
ival-sqrt: 25.0ms (7.5% of total)
const: 4.0ms (1.2% of total)
backward-pass: 1.0ms (0.3% of total)

sample2.1s (11.4%)

Results
970.0ms6083×0valid
723.0ms2173×1valid
Precisions
Click to see histograms. Total time spent on operations: 1.2s
ival-mult: 425.0ms (36.6% of total)
ival-add: 184.0ms (15.8% of total)
ival-cos: 166.0ms (14.3% of total)
ival-sub: 149.0ms (12.8% of total)
ival-div: 99.0ms (8.5% of total)
ival-sqrt: 79.0ms (6.8% of total)
backward-pass: 47.0ms (4% of total)
const: 13.0ms (1.1% of total)
Bogosity

preprocess233.0ms (1.3%)

Algorithm
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
iter limit
node limit
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)

explain291.0ms (1.6%)

FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
1700-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))))
67126(2.3557448204044694e+53 -1.0229048680153041e-30 -1.8941166671827153e-59 4.577404099549306e-60 3.3786526361035336e+130)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
190.0ms364×1valid
23.0ms148×0valid
Compiler

Compiled 359 to 53 computations (85.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 91.0ms
ival-mult: 26.0ms (28.6% of total)
ival-cos: 21.0ms (23.1% of total)
ival-sub: 11.0ms (12.1% of total)
backward-pass: 11.0ms (12.1% of total)
ival-add: 9.0ms (9.9% of total)
ival-div: 7.0ms (7.7% of total)
ival-sqrt: 7.0ms (7.7% of total)
const: 1.0ms (1.1% of total)

eval0.0ms (0%)

Compiler

Compiled 21 to 14 computations (33.3% saved)

prune1.0ms (0%)

Alt Table
Click to see full alt table
StatusAccuracyProgram
94.0%
(*.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)

simplify176.0ms (0.9%)

Algorithm
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
iter limit
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)

localize135.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.6%
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
accuracy77.7%
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
Results
105.0ms185×1valid
11.0ms71×0valid
Compiler

Compiled 72 to 15 computations (79.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 94.0ms
ival-add: 38.0ms (40.3% of total)
compiled-spec: 15.0ms (15.9% of total)
ival-mult: 13.0ms (13.8% of total)
ival-cos: 9.0ms (9.5% of total)
backward-pass: 6.0ms (6.4% of total)
ival-sub: 5.0ms (5.3% of total)
ival-div: 3.0ms (3.2% of total)
ival-sqrt: 3.0ms (3.2% of total)
const: 0.0ms (0% of total)

series42.0ms (0.2%)

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
4.0ms
phi1
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
4.0ms
lambda2
@inf
(* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))
3.0ms
R
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
3.0ms
lambda2
@-inf
(* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))
2.0ms
phi2
@0
(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))

rewrite342.0ms (1.8%)

Algorithm
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
iter limit
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)))

simplify457.0ms (2.5%)

Algorithm
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
iter limit
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)))

eval52.0ms (0.3%)

Compiler

Compiled 12108 to 1238 computations (89.8% saved)

prune105.0ms (0.6%)

Pruning

23 alts after pruning (23 fresh and 0 done)

PrunedKeptTotal
New28623309
Fresh000
Picked101
Done000
Total28723310
Accuracy
94.5%
Counts
310 → 23
Alt Table
Click to see full alt table
StatusAccuracyProgram
20.0%
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)))
57.4%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
33.8%
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
33.1%
(*.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))
9.3%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
21.1%
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2))
56.2%
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
32.3%
(*.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)))
58.2%
(*.f64 R (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)))
93.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)))
33.5%
(*.f64 R (hypot.f64 (*.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 phi1 phi2)))
81.8%
(*.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)))
72.1%
(*.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)))
88.8%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 phi1 phi2)))
89.2%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
55.1%
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
9.3%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
19.7%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
21.1%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
12.3%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
54.3%
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
58.2%
(*.f64 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))))
32.8%
(*.f64 R phi2)
Compiler

Compiled 964 to 626 computations (35.1% saved)

simplify266.0ms (1.4%)

Algorithm
egg-herbie
Localize:

Found 17 expressions of interest:

NewMetricScoreProgram
cost-diff0
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
cost-diff0
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
cost-diff6784
(-.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))
cost-diff6784
(*.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)))
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 R lambda2)
cost-diff0
(/.f64 (*.f64 R phi2) phi1)
cost-diff0
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
cost-diff256
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
cost-diff384
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
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
2562×*-lowering-*.f32
2562×*-lowering-*.f64
2228×+-lowering-+.f64
2228×+-lowering-+.f32
1382×fma-lowering-fma.f32
Iterations

Useful iterations: 5 (0.0ms)

IterNodesCost
037249
194234
2236231
3753228
42727222
57518221
08021221
Stop Event
iter limit
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
(- 0 (* phi1 (- R (/ (* R phi2) phi1))))
0
(* phi1 (- R (/ (* R phi2) phi1)))
phi1
(- R (/ (* R phi2) phi1))
R
(/ (* R phi2) phi1)
(* R phi2)
phi2
(* (neg (* R lambda2)) (cos (* 1/2 (+ phi1 phi2))))
(neg (* R lambda2))
(* R lambda2)
R
lambda2
(cos (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
1/2
(+ phi1 phi2)
phi1
phi2
(* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2)))
lambda2
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2))
(* R (cos (* 1/2 (+ phi1 phi2))))
R
(cos (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
1/2
(+ phi1 phi2)
phi1
phi2
(/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2)
(* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1))
(* R lambda1)
lambda1
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
(- 0 (* phi1 (- R (/ (* R phi2) phi1))))
(*.f64 R (-.f64 phi2 phi1))
0
#s(literal 0 binary64)
(* phi1 (- R (/ (* R phi2) phi1)))
(*.f64 R (-.f64 phi1 phi2))
phi1
(- R (/ (* R phi2) phi1))
(-.f64 R (*.f64 R (/.f64 phi2 phi1)))
R
(/ (* R phi2) phi1)
(*.f64 R (/.f64 phi2 phi1))
(* R phi2)
(*.f64 R phi2)
phi2
(* (neg (* R lambda2)) (cos (* 1/2 (+ phi1 phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))
(neg (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* R lambda2)
(*.f64 R lambda2)
R
lambda2
(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
(* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2)))
(*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (+.f64 (*.f64 R lambda2) (-.f64 #s(literal 0 binary64) (*.f64 R lambda1))))
lambda2
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2))
(*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 R (*.f64 R (/.f64 lambda1 lambda2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(*.f64 R (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))
R
(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
(/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2)
(*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 R (/.f64 lambda1 lambda2)))
(* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1))
(*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 R lambda1))
(* R lambda1)
(*.f64 R lambda1)
lambda1

localize301.0ms (1.6%)

Localize:

Found 17 expressions of interest:

NewMetricScoreProgram
accuracy99.7%
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
accuracy93.5%
(*.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)))
accuracy91.1%
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2)
accuracy77.7%
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
accuracy100.0%
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
accuracy100.0%
(neg.f64 (*.f64 R lambda2))
accuracy99.6%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
accuracy77.7%
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
accuracy100.0%
(*.f64 R phi2)
accuracy100.0%
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
accuracy91.4%
(/.f64 (*.f64 R phi2) phi1)
accuracy91.0%
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
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.5%
(/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
accuracy77.7%
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
Results
189.0ms185×1valid
49.0ms71×0valid
Compiler

Compiled 262 to 35 computations (86.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 154.0ms
ival-mult: 36.0ms (23.4% of total)
backward-pass: 24.0ms (15.6% of total)
ival-cos: 20.0ms (13% of total)
ival-add: 18.0ms (11.7% of total)
ival-sub: 17.0ms (11.1% of total)
ival-div: 16.0ms (10.4% of total)
compiled-spec: 16.0ms (10.4% of total)
ival-sqrt: 4.0ms (2.6% of total)
ival-neg: 2.0ms (1.3% of total)
const: 1.0ms (0.7% of total)

series76.0ms (0.4%)

Counts
21 → 804
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 (- 0 (* phi1 (- R (/ (* R phi2) phi1))))>
#<alt (* phi1 (- R (/ (* R phi2) phi1)))>
#<alt (- R (/ (* R phi2) phi1))>
#<alt (/ (* R phi2) phi1)>
#<alt (* R lambda2)>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (* 1/2 (+ phi1 phi2))>
#<alt (+ phi1 phi2)>
#<alt (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2)))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (/ 1 (- lambda1 lambda2))>
#<alt (* (neg (* R lambda2)) (cos (* 1/2 (+ phi1 phi2))))>
#<alt (neg (* R lambda2))>
#<alt (/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2)>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1))>
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 phi2)>
#<alt (- (* -1 (* R phi1)) (* -1 (* R phi2)))>
#<alt (- (* -1 (* R phi1)) (* -1 (* R phi2)))>
#<alt (- (* -1 (* R phi1)) (* -1 (* R phi2)))>
#<alt (* -1 (* R phi1))>
#<alt (* phi1 (- (/ (* R phi2) phi1) R))>
#<alt (* phi1 (- (/ (* R phi2) phi1) R))>
#<alt (* phi1 (- (/ (* R phi2) phi1) R))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (- (* -1 (/ (* R phi2) phi1)) (* -1 R))))>
#<alt (* -1 (* phi1 (- (* -1 (/ (* R phi2) phi1)) (* -1 R))))>
#<alt (* -1 (* phi1 (- (* -1 (/ (* R phi2) phi1)) (* -1 R))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (- 1 (/ phi2 phi1)))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* -1 (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))>
#<alt (* -1 (* R phi1))>
#<alt (- (* R phi2) (* R phi1))>
#<alt (- (* R phi2) (* R phi1))>
#<alt (- (* R phi2) (* R phi1))>
#<alt (* R phi2)>
#<alt (* phi2 (- (* -1 (/ (* R phi1) phi2)) (* -1 R)))>
#<alt (* phi2 (- (* -1 (/ (* R phi1) phi2)) (* -1 R)))>
#<alt (* phi2 (- (* -1 (/ (* R phi1) phi2)) (* -1 R)))>
#<alt (* R phi2)>
#<alt (* -1 (* phi2 (- (/ (* R phi1) phi2) R)))>
#<alt (* -1 (* phi2 (- (/ (* R phi1) phi2) R)))>
#<alt (* -1 (* phi2 (- (/ (* R phi1) phi2) R)))>
#<alt (* -1 (* R phi2))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* R phi1)>
#<alt (* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))>
#<alt (* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))>
#<alt (* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))>
#<alt (* R (* phi1 (- 1 (/ phi2 phi1))))>
#<alt (* R (* phi1 (- 1 (/ phi2 phi1))))>
#<alt (* R (* phi1 (- 1 (/ phi2 phi1))))>
#<alt (* R (* phi1 (- 1 (/ phi2 phi1))))>
#<alt (* R (* phi1 (- 1 (/ phi2 phi1))))>
#<alt (* R (* phi1 (- 1 (/ phi2 phi1))))>
#<alt (* R (* phi1 (- 1 (/ phi2 phi1))))>
#<alt (* R (* phi1 (- 1 (/ phi2 phi1))))>
#<alt (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* R (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* R phi1)>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (* -1 (* R phi2))>
#<alt (* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))>
#<alt (* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))>
#<alt (* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (- 1 (/ phi2 phi1)))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* R (+ 1 (* -1 (/ phi2 phi1))))>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (* -1 (/ (* R phi2) phi1))>
#<alt (* phi2 (- (/ R phi2) (/ R phi1)))>
#<alt (* phi2 (- (/ R phi2) (/ R phi1)))>
#<alt (* phi2 (- (/ R phi2) (/ R phi1)))>
#<alt (* -1 (/ (* R phi2) phi1))>
#<alt (* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))>
#<alt (* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))>
#<alt (* -1 (* phi2 (- (* -1 (/ R phi2)) (* -1 (/ R phi1)))))>
#<alt (* -1 (/ (* R phi2) phi1))>
#<alt (/ (- (* R phi1) (* R phi2)) phi1)>
#<alt (/ (- (* R phi1) (* R phi2)) phi1)>
#<alt (/ (- (* R phi1) (* R phi2)) phi1)>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (+ R (* -1 (/ (* R phi2) phi1)))>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (cos (* 1/2 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (* 1/2 phi2)>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (* 1/2 phi1)>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* 1/2 phi1)>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* 1/2 phi1)>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (* 1/2 phi2)>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* 1/2 phi2)>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt 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)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (+ (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (+ (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<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)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))>
#<alt (* -1 (* lambda2 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))>
#<alt (* -1 (* lambda2 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))>
#<alt (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* -1 (* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))>
#<alt (* -1 (* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))>
#<alt (* -1 (* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))>
#<alt (* -1 (* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))>
#<alt (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)))>
#<alt (+ (* lambda2 (* phi1 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))>
#<alt (+ (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))) (* phi1 (+ (* lambda2 (* phi1 (- (* -1/8 (* R (cos (* 1/2 phi2)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)))))))>
#<alt (+ (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))) (* phi1 (+ (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)))) (* phi1 (+ (* lambda2 (* phi1 (- (* 1/48 (* R (sin (* 1/2 phi2)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (* lambda2 (- (* -1/8 (* R (cos (* 1/2 phi2)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))))))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))>
#<alt (+ (* lambda2 (* phi2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))>
#<alt (+ (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))) (* phi2 (+ (* lambda2 (* phi2 (- (* -1/8 (* R (cos (* 1/2 phi1)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)))))))>
#<alt (+ (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))) (* phi2 (+ (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)))) (* phi2 (+ (* lambda2 (* phi2 (- (* 1/48 (* R (sin (* 1/2 phi1)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (* lambda2 (- (* -1/8 (* R (cos (* 1/2 phi1)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))))))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)))>
#<alt (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (+ (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (+ (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))>
#<alt (* lambda1 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))>
#<alt (* lambda1 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))>
#<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 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))>
#<alt (- (+ (* R (cos (* 1/2 phi2))) (* phi1 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))>
#<alt (- (+ (* R (cos (* 1/2 phi2))) (* phi1 (- (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* phi1 (- (* -1/8 (* R (cos (* 1/2 phi2)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))>
#<alt (- (+ (* R (cos (* 1/2 phi2))) (* phi1 (- (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* phi1 (- (+ (* -1/8 (* R (cos (* 1/2 phi2)))) (* phi1 (- (* 1/48 (* R (sin (* 1/2 phi2)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))>
#<alt (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))>
#<alt (- (+ (* R (cos (* 1/2 phi1))) (* phi2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))>
#<alt (- (+ (* R (cos (* 1/2 phi1))) (* phi2 (- (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* phi2 (- (* -1/8 (* R (cos (* 1/2 phi1)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))>
#<alt (- (+ (* R (cos (* 1/2 phi1))) (* phi2 (- (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* phi2 (- (+ (* -1/8 (* R (cos (* 1/2 phi1)))) (* phi2 (- (* 1/48 (* R (sin (* 1/2 phi1)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (* lambda1 (- (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1) (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* lambda1 (- (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1) (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* lambda1 (- (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1) (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (/ (- (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)>
#<alt (/ (- (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)>
#<alt (/ (- (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 phi2)))>
#<alt (+ (* -1/2 (* R (* phi1 (sin (* 1/2 phi2))))) (* R (cos (* 1/2 phi2))))>
#<alt (+ (* R (cos (* 1/2 phi2))) (* phi1 (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/8 (* R (* phi1 (cos (* 1/2 phi2))))))))>
#<alt (+ (* R (cos (* 1/2 phi2))) (* phi1 (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/8 (* R (cos (* 1/2 phi2)))) (* 1/48 (* R (* phi1 (sin (* 1/2 phi2))))))))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (* R (cos (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (* R (cos (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (* R (cos (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (* R (cos (* 1/2 phi1)))>
#<alt (+ (* -1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))>
#<alt (+ (* R (cos (* 1/2 phi1))) (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/8 (* R (* phi2 (cos (* 1/2 phi1))))))))>
#<alt (+ (* R (cos (* 1/2 phi1))) (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/8 (* R (cos (* 1/2 phi1)))) (* 1/48 (* R (* phi2 (sin (* 1/2 phi1))))))))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (* R (cos (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (* R (cos (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (* R (cos (* 1/2 (- phi1 (* -1 phi2)))))>
#<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 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi2)))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi2))))))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* 1/8 (* R (* lambda2 (cos (* 1/2 phi2))))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1))))))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* 1/8 (* R (* lambda2 (cos (* 1/2 phi1))))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)>
#<alt (+ (* -1/2 (/ (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))) lambda2)) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))>
#<alt (+ (* phi1 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)) (* -1/8 (/ (* R (* lambda1 (* phi1 (cos (* 1/2 phi2))))) lambda2)))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))>
#<alt (+ (* phi1 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)) (* phi1 (+ (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)) (* 1/48 (/ (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))) lambda2)))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)>
#<alt (+ (* -1/2 (/ (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))) lambda2)) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))>
#<alt (+ (* phi2 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)) (* -1/8 (/ (* R (* lambda1 (* phi2 (cos (* 1/2 phi1))))) lambda2)))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))>
#<alt (+ (* phi2 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)) (* phi2 (+ (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* 1/48 (/ (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))) lambda2)))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<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)))))>
Calls

201 calls:

TimeVariablePointExpression
7.0ms
phi2
@inf
(* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2)))
6.0ms
R
@0
(* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2)))
2.0ms
lambda1
@inf
(/ 1 (- lambda1 lambda2))
1.0ms
phi2
@-inf
(* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2)))
1.0ms
phi1
@-inf
(* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2)))

rewrite386.0ms (2.1%)

Algorithm
batch-egg-rewrite
Rules
5560×*-lowering-*.f32
5560×*-lowering-*.f64
2988×/-lowering-/.f32
2988×/-lowering-/.f64
2672×+-lowering-+.f64
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
037191
1218176
21868173
09513173
Stop Event
iter limit
node limit
Counts
21 → 353
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)
(- 0 (* phi1 (- R (/ (* R phi2) phi1))))
(* phi1 (- R (/ (* R phi2) phi1)))
(- R (/ (* R phi2) phi1))
(/ (* R phi2) phi1)
(* R lambda2)
(cos (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
(+ phi1 phi2)
(* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2)))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2))
(* R (cos (* 1/2 (+ phi1 phi2))))
(/ 1 (- lambda1 lambda2))
(* (neg (* R lambda2)) (cos (* 1/2 (+ phi1 phi2))))
(neg (* R lambda2))
(/ (* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1)) lambda2)
(* (cos (* 1/2 (+ phi1 phi2))) (* R lambda1))
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 #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 (-.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 #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 (-.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 #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 (-.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))))))))
(/.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 (-.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 #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 (-.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 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #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 (-.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 #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 (-.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 (neg.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 #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 (-.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 (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 (-.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 #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 (-.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 #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 (-.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 #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 (-.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 #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 (-.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 #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 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal -1 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)))
(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 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) (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))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (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)))) (/.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 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(*.f64 (-.f64 lambda1 lambda2) (pow.f64 (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))) (-.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 #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 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1 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 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))) #s(literal 0 binary64))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) R) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1))))
(+.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1)) (-.f64 #s(literal 0 binary64) phi1)))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))) (/.f64 (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))) (/.f64 (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(fma.f64 R (-.f64 #s(literal 0 binary64) phi1) (*.f64 (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1)) (-.f64 #s(literal 0 binary64) phi1)))
(fma.f64 phi1 (neg.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) #s(literal 0 binary64))
(fma.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) phi1) R (*.f64 (-.f64 #s(literal 0 binary64) phi1) (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1))))
(fma.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (*.f64 R phi2) phi1)) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))) (/.f64 #s(literal 1 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))) #s(literal 0 binary64))
(fma.f64 (neg.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) phi1 #s(literal 0 binary64))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))) (*.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1))))) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1)))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
(pow.f64 (/.f64 (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))) #s(literal -1 binary64))
(*.f64 phi1 (neg.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))) (/.f64 #s(literal 1 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(*.f64 (neg.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) phi1)
(+.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(+.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) #s(literal 0 binary64))
(+.f64 (*.f64 phi1 R) (*.f64 phi1 (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1))))
(+.f64 (*.f64 R phi1) (*.f64 (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1)) phi1))
(fma.f64 R phi1 (*.f64 (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1)) phi1))
(fma.f64 phi1 R (*.f64 phi1 (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1))))
(fma.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) #s(literal 0 binary64))
(fma.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) phi1 #s(literal 0 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(/.f64 (*.f64 phi1 (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1))))) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(/.f64 (*.f64 phi1 (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1)))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
(/.f64 (*.f64 (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) phi1) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(/.f64 (*.f64 (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1))) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) phi1)
(+.f64 R (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1)))
(+.f64 (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1)) R)
(-.f64 R (/.f64 (*.f64 R phi2) phi1))
(-.f64 (/.f64 (*.f64 R (*.f64 R R)) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1))))) (/.f64 (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1))) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1))))))
(-.f64 (/.f64 (*.f64 R R) (+.f64 R (/.f64 (*.f64 R phi2) phi1))) (/.f64 (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1)) (+.f64 R (/.f64 (*.f64 R phi2) phi1))))
(fma.f64 R (neg.f64 (/.f64 phi2 phi1)) R)
(fma.f64 (*.f64 R phi2) (neg.f64 (/.f64 #s(literal 1 binary64) phi1)) R)
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) R)
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (/.f64 #s(literal 1 binary64) phi1) R)
(fma.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 phi2 phi1) R)
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))) (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1)))))
(/.f64 (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(/.f64 (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) (+.f64 (*.f64 R R) (-.f64 (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1)) (*.f64 R (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1))))))
(/.f64 (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
(/.f64 (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1))) (-.f64 R (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1))))
(/.f64 (neg.f64 (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1))))))
(/.f64 (neg.f64 (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1)))) (neg.f64 (+.f64 R (/.f64 (*.f64 R phi2) phi1))))
(pow.f64 (/.f64 (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))) (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1)))) #s(literal -1 binary64))
(*.f64 (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1))))))
(*.f64 (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1))) (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 (*.f64 R phi2) phi1))))
(exp.f64 (*.f64 (log.f64 (/.f64 phi1 (*.f64 R phi2))) #s(literal -1 binary64)))
(neg.f64 (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 phi1 (*.f64 R phi2)) #s(literal 1 binary64)))
(/.f64 (*.f64 R phi2) phi1)
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 phi1 (*.f64 R phi2))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 (*.f64 (*.f64 R phi2) #s(literal 1 binary64)) phi1)
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2))) (neg.f64 (-.f64 #s(literal 0 binary64) phi1)))
(pow.f64 (/.f64 phi1 (*.f64 R phi2)) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 R (/.f64 phi2 phi1))
(*.f64 phi2 (*.f64 R (/.f64 #s(literal 1 binary64) phi1)))
(*.f64 phi2 (/.f64 R phi1))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 R phi2) phi1))
(*.f64 (*.f64 R phi2) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) phi1)))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi2)) #s(literal -1 binary64)))
(*.f64 (/.f64 phi2 phi1) R)
(*.f64 R lambda2)
(*.f64 lambda2 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 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1 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 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))) (neg.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1)))))
(/.f64 (neg.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) (neg.f64 (-.f64 phi1 phi2)))
(/.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 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (+.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 R lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 lambda2 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2))))
(+.f64 (*.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) lambda2) (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2)) lambda2))
(fma.f64 R (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 lambda2 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2))))
(fma.f64 lambda2 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 lambda2 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2))))
(fma.f64 (*.f64 R lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda2 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda2) (*.f64 lambda2 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2))))
(fma.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) lambda2 (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2)) lambda2))
(/.f64 (*.f64 lambda2 (-.f64 (pow.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #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 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 R R)) (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))))))
(/.f64 (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #s(literal 3 binary64))) lambda2) (+.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 R R)) (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))))))
(/.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))))
(*.f64 lambda2 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))))
(*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))) lambda2)
(+.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (+.f64 (*.f64 (neg.f64 (/.f64 (*.f64 R lambda1) lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2)))
(+.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (+.f64 (*.f64 (neg.f64 (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2)))
(+.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))) (/.f64 #s(literal 1 binary64) lambda2) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2)))
(+.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 (*.f64 R lambda1) lambda2) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2)))
(+.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2)) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (fma.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #s(literal 1 binary64)))) (fma.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #s(literal 1 binary64))))
(+.f64 (fma.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 (*.f64 (*.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))) (fma.f64 (neg.f64 (*.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2))) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))))
(+.f64 (fma.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 (*.f64 (/.f64 lambda1 lambda2) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))) (fma.f64 (neg.f64 (/.f64 lambda1 lambda2)) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (/.f64 lambda1 lambda2) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))))
(+.f64 (fma.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 R lambda1)))) (fma.f64 (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda2))) (*.f64 R lambda1) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 R lambda1))))
(+.f64 (fma.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 (*.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda2) (*.f64 R lambda1)))) (fma.f64 (neg.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda2)) (*.f64 R lambda1) (*.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda2) (*.f64 R lambda1))))
(+.f64 (fma.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda2)) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)))))) (fma.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda2))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))) (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda2)) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))))))
(+.f64 (fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) R (neg.f64 (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #s(literal 1 binary64)))) (fma.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #s(literal 1 binary64))))
(+.f64 (fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) R (neg.f64 (*.f64 (*.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))) (fma.f64 (neg.f64 (*.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2))) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))))
(+.f64 (fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) R (neg.f64 (*.f64 (/.f64 lambda1 lambda2) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))))) (fma.f64 (neg.f64 (/.f64 lambda1 lambda2)) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (/.f64 lambda1 lambda2) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))))
(+.f64 (fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) R (neg.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 R lambda1)))) (fma.f64 (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda2))) (*.f64 R lambda1) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 R lambda1))))
(+.f64 (fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) R (neg.f64 (*.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda2) (*.f64 R lambda1)))) (fma.f64 (neg.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda2)) (*.f64 R lambda1) (*.f64 (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda2) (*.f64 R lambda1))))
(+.f64 (fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) R (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda2)) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)))))) (fma.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda2))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))) (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda2)) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))))))
(-.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2))
(-.f64 (/.f64 (pow.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 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 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 R R)) (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2)))))) (/.f64 (pow.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #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 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 R R)) (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R 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 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 R R)) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (/.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 (*.f64 R lambda1) lambda2) (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2)))))
(fma.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) R (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2)))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 (/.f64 (*.f64 R lambda1) lambda2)) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 (neg.f64 (/.f64 (*.f64 R lambda1) lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2)))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)) (+.f64 (*.f64 (neg.f64 (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2)))
(fma.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (neg.f64 (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))) (/.f64 #s(literal 1 binary64) lambda2) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 (*.f64 R lambda1) lambda2) (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(fma.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #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 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 R R)) (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2)))))) (+.f64 (*.f64 (neg.f64 (/.f64 (*.f64 R lambda1) lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2)))
(fma.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #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 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 R R)) (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2)))))) (+.f64 (*.f64 (neg.f64 (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2)))
(fma.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (+.f64 (*.f64 (neg.f64 (/.f64 (*.f64 R lambda1) lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2)))
(fma.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (+.f64 (*.f64 (neg.f64 (/.f64 #s(literal 1 binary64) lambda2)) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2)))
(/.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 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 R R)) (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))))) (-.f64 (pow.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))))))
(/.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #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 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 R R)) (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))))))
(/.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #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 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 R R)) (-.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 (*.f64 R lambda1) lambda2) (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2))))))
(/.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #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 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 R R)) (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2)))))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))))) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2)))))
(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 R R)) (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))))) (-.f64 (pow.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))))) #s(literal -1 binary64))
(*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))
(*.f64 (-.f64 (pow.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) #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 (+.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 R R)) (*.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2)))))))
(*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 R (/.f64 (*.f64 R lambda1) lambda2)))))
(*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) R)
(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 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(*.f64 R (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(*.f64 (*.f64 R lambda2) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)))
(*.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) lambda2))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 R lambda2))
(*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) R)) lambda2)
(+.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(neg.f64 (*.f64 R lambda2))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (*.f64 (*.f64 R lambda2) (*.f64 R lambda2)))) (+.f64 #s(literal 0 binary64) (+.f64 (*.f64 (*.f64 R lambda2) (*.f64 R lambda2)) (*.f64 #s(literal 0 binary64) (*.f64 R lambda2)))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (*.f64 R lambda2))) (+.f64 #s(literal 0 binary64) (*.f64 R lambda2)))
(*.f64 R (-.f64 #s(literal 0 binary64) lambda2))
(*.f64 lambda2 (-.f64 #s(literal 0 binary64) R))
(*.f64 (*.f64 R lambda2) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (*.f64 R lambda2))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) R)
(*.f64 (-.f64 #s(literal 0 binary64) R) lambda2)
(exp.f64 (*.f64 (log.f64 (/.f64 lambda2 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)))) #s(literal -1 binary64)))
(neg.f64 (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (-.f64 #s(literal 0 binary64) lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 lambda2 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 lambda2 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))) #s(literal 1 binary64)))
(/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2)
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 lambda2 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))) (-.f64 #s(literal 0 binary64) lambda2))
(/.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) #s(literal 1 binary64)) lambda2)
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)))) (neg.f64 (-.f64 #s(literal 0 binary64) lambda2)))
(pow.f64 (/.f64 lambda2 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 lambda2 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) lambda2))
(*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 (*.f64 R lambda1) lambda2))
(*.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))
(*.f64 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 lambda1 lambda2))
(*.f64 (*.f64 R lambda1) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda2)))
(*.f64 (*.f64 R lambda1) (/.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda2))
(*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)) (/.f64 #s(literal 1 binary64) lambda2))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.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 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1)))
(*.f64 (/.f64 #s(literal 1 binary64) lambda2) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 R lambda1))) #s(literal -1 binary64)))
(*.f64 (/.f64 (*.f64 R lambda1) lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(*.f64 R (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda1))
(*.f64 R (*.f64 lambda1 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(*.f64 lambda1 (*.f64 R (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 (*.f64 R (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) lambda1)
(*.f64 (*.f64 R lambda1) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) lambda1) R)

simplify493.0ms (2.7%)

Algorithm
egg-herbie
Rules
7342×*-lowering-*.f32
7342×*-lowering-*.f64
4348×+-lowering-+.f64
4348×+-lowering-+.f32
1404×distribute-lft-in
Iterations

Useful iterations: 1 (0.0ms)

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

eval257.0ms (1.4%)

Compiler

Compiled 37966 to 3075 computations (91.9% saved)

prune270.0ms (1.5%)

Pruning

54 alts after pruning (52 fresh and 2 done)

PrunedKeptTotal
New1443431486
Fresh9918
Picked325
Done000
Total1455541509
Accuracy
99.9%
Counts
1509 → 54
Alt Table
Click to see full alt table
StatusAccuracyProgram
17.4%
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
28.6%
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
14.5%
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1))))) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))))
24.3%
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1)))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
17.3%
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))))))
28.5%
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))))
7.7%
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
53.1%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
20.0%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
14.6%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (/.f64 (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))))))
26.3%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (/.f64 (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))))
60.3%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (*.f64 phi2 (/.f64 R phi1)))))
60.3%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (*.f64 phi2 (*.f64 R (/.f64 #s(literal 1 binary64) phi1))))))
14.6%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1))))))))
26.2%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1))) (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 (*.f64 R phi2) phi1))))))
57.9%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1)))))
55.9%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
9.3%
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
32.3%
(*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))) lambda2)
21.1%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
11.8%
(*.f64 (neg.f64 (*.f64 R lambda2)) (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)))))))
11.8%
(*.f64 (neg.f64 (*.f64 R lambda2)) (-.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))))))
11.8%
(*.f64 (neg.f64 (*.f64 R lambda2)) (+.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)))))))
10.1%
(*.f64 (neg.f64 (*.f64 R lambda2)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
14.0%
(*.f64 (neg.f64 (*.f64 R lambda2)) (+.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)))))))
6.6%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)))))))
9.3%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
7.7%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
8.2%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
56.2%
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
54.7%
(*.f64 phi2 (-.f64 R (*.f64 R (/.f64 phi1 phi2))))
57.4%
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
33.4%
(*.f64 lambda2 (-.f64 (*.f64 R (-.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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2)))
34.3%
(*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.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 R lambda1)) lambda2)))
33.6%
(*.f64 lambda2 (-.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) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 R lambda1)) lambda2)))
14.4%
(*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (cos.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2))) #s(literal -1 binary64)))) (*.f64 R lambda1)) lambda2)))
14.5%
(*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2))) #s(literal -1 binary64))))) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2)))
21.1%
(*.f64 lambda2 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
33.1%
(*.f64 lambda1 (-.f64 (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 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)))
99.8%
(*.f64 R (hypot.f64 (/.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 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)))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
41.2%
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (*.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)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
89.2%
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
81.8%
(*.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)))
88.8%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 phi1 phi2)))
89.2%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
61.4%
(*.f64 R (-.f64 phi2 phi1))
55.1%
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
19.7%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
21.1%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
12.3%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
54.3%
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
32.8%
(*.f64 R phi2)
Compiler

Compiled 2924 to 1670 computations (42.9% saved)

simplify280.0ms (1.5%)

Algorithm
egg-herbie
Localize:

Found 18 expressions of interest:

NewMetricScoreProgram
cost-diff0
(*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
cost-diff0
(*.f64 #s(literal 1/2 binary64) R)
cost-diff0
(*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
cost-diff256
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
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))) lambda2)
cost-diff0
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
cost-diff0
(-.f64 #s(literal 0 binary64) phi1)
cost-diff128
(-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1)))
cost-diff128
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1))))
cost-diff128
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1)))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
cost-diff0
(-.f64 phi2 phi1)
cost-diff0
(*.f64 R (-.f64 phi2 phi1))
cost-diff39296
(+.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))))))
cost-diff39424
(/.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 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)))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
cost-diff39424
(hypot.f64 (/.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 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)))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2))
cost-diff39424
(*.f64 R (hypot.f64 (/.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 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)))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
Rules
2510×*-lowering-*.f32
2510×*-lowering-*.f64
2196×fma-lowering-fma.f32
2196×fma-lowering-fma.f64
1546×fmsub-define
Iterations

Useful iterations: 4 (0.0ms)

IterNodesCost
060519
1168461
2493397
32181395
46592394
08349394
Stop Event
iter limit
node limit
Calls
Call 1
Inputs
(* R (sqrt (+ (* (/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2))) (/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
R
(sqrt (+ (* (/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2))) (/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))
(/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2)))
(+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))))
(+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))))
(cos (* phi1 1/2))
(* phi1 1/2)
phi1
1/2
(cos (* phi2 1/2))
(* phi2 1/2)
phi2
(neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))
(* (sin (* phi2 1/2)) (sin (* phi1 1/2)))
(sin (* phi2 1/2))
(sin (* phi1 1/2))
(+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))
(neg (sin (* phi2 1/2)))
(/ 1 (- lambda1 lambda2))
1
(- lambda1 lambda2)
lambda1
lambda2
(- phi1 phi2)
(* R (- phi2 phi1))
R
(- phi2 phi1)
phi2
phi1
(/ (* (- 0 phi1) (- (* R R) (* (/ (* R (* R phi2)) phi1) (/ phi2 phi1)))) (+ R (/ (* R phi2) phi1)))
(* (- 0 phi1) (- (* R R) (* (/ (* R (* R phi2)) phi1) (/ phi2 phi1))))
(- 0 phi1)
0
phi1
(- (* R R) (* (/ (* R (* R phi2)) phi1) (/ phi2 phi1)))
(* R R)
R
(* (/ (* R (* R phi2)) phi1) (/ phi2 phi1))
(/ (* R (* R phi2)) phi1)
(* R (* R phi2))
(* R phi2)
phi2
(/ phi2 phi1)
(+ R (/ (* R phi2) phi1))
(/ (* R phi2) phi1)
(* R (* (cos (* 1/2 (+ phi1 phi2))) lambda2))
R
(* (cos (* 1/2 (+ phi1 phi2))) lambda2)
(cos (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
1/2
(+ phi1 phi2)
phi1
phi2
lambda2
(- (* (* 1/2 R) (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (* R lambda2) (cos (* 1/2 phi1))))
(* (* 1/2 R) (* (* lambda2 phi2) (sin (* 1/2 phi1))))
(* 1/2 R)
1/2
R
(* (* lambda2 phi2) (sin (* 1/2 phi1)))
(* lambda2 phi2)
lambda2
phi2
(sin (* 1/2 phi1))
(* 1/2 phi1)
phi1
(* (* R lambda2) (cos (* 1/2 phi1)))
(* R lambda2)
(cos (* 1/2 phi1))
Outputs
(* R (sqrt (+ (* (/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2))) (/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* 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 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
R
(sqrt (+ (* (/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2))) (/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* 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 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2))
(/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2)))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 lambda1 lambda2))
(+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(cos (* phi1 1/2))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(* phi1 1/2)
(*.f64 phi1 #s(literal 1/2 binary64))
phi1
1/2
#s(literal 1/2 binary64)
(cos (* phi2 1/2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(* phi2 1/2)
(*.f64 #s(literal 1/2 binary64) phi2)
phi2
(neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(* (sin (* phi2 1/2)) (sin (* phi1 1/2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(sin (* phi2 1/2))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(sin (* phi1 1/2))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))
#s(literal 0 binary64)
(neg (sin (* phi2 1/2)))
(-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(/ 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 phi1))
(*.f64 R (-.f64 phi2 phi1))
R
(- phi2 phi1)
(-.f64 phi2 phi1)
phi2
phi1
(/ (* (- 0 phi1) (- (* R R) (* (/ (* R (* R phi2)) phi1) (/ phi2 phi1)))) (+ R (/ (* R phi2) phi1)))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 R (-.f64 R (*.f64 phi2 (/.f64 (/.f64 (*.f64 R phi2) phi1) phi1)))))) (*.f64 R (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* (- 0 phi1) (- (* R R) (* (/ (* R (* R phi2)) phi1) (/ phi2 phi1))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 R (-.f64 R (*.f64 phi2 (/.f64 (/.f64 (*.f64 R phi2) phi1) phi1))))))
(- 0 phi1)
(-.f64 #s(literal 0 binary64) phi1)
0
#s(literal 0 binary64)
phi1
(- (* R R) (* (/ (* R (* R phi2)) phi1) (/ phi2 phi1)))
(*.f64 R (-.f64 R (*.f64 phi2 (/.f64 (/.f64 (*.f64 R phi2) phi1) phi1))))
(* R R)
(*.f64 R R)
R
(* (/ (* R (* R phi2)) phi1) (/ phi2 phi1))
(*.f64 R (*.f64 phi2 (/.f64 (/.f64 (*.f64 R phi2) phi1) phi1)))
(/ (* R (* R phi2)) phi1)
(/.f64 (*.f64 R (*.f64 R phi2)) phi1)
(* R (* R phi2))
(*.f64 R (*.f64 R phi2))
(* R phi2)
(*.f64 R phi2)
phi2
(/ phi2 phi1)
(/.f64 phi2 phi1)
(+ R (/ (* R phi2) phi1))
(*.f64 R (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(* R (* (cos (* 1/2 (+ phi1 phi2))) lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2))
R
(* (cos (* 1/2 (+ phi1 phi2))) lambda2)
(*.f64 lambda2 (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)))
(* 1/2 (+ phi1 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
1/2
#s(literal 1/2 binary64)
(+ phi1 phi2)
(+.f64 phi1 phi2)
phi1
phi2
lambda2
(- (* (* 1/2 R) (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (* R lambda2) (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(* (* 1/2 R) (* (* lambda2 phi2) (sin (* 1/2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 R phi2))))
(* 1/2 R)
(*.f64 R #s(literal 1/2 binary64))
1/2
#s(literal 1/2 binary64)
R
(* (* lambda2 phi2) (sin (* 1/2 phi1)))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 lambda2))
(* lambda2 phi2)
(*.f64 phi2 lambda2)
lambda2
phi2
(sin (* 1/2 phi1))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
phi1
(* (* R lambda2) (cos (* 1/2 phi1)))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(* R lambda2)
(*.f64 R lambda2)
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))

localize1.5s (8%)

Localize:

Found 18 expressions of interest:

NewMetricScoreProgram
accuracy100.0%
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
accuracy100.0%
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
accuracy99.6%
(*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
accuracy98.3%
(*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
accuracy100.0%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
accuracy100.0%
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
accuracy100.0%
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
accuracy100.0%
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)
accuracy98.5%
(-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1)))
accuracy98.5%
(/.f64 (*.f64 R phi2) phi1)
accuracy97.5%
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1))))
accuracy96.9%
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1)))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
accuracy100.0%
(-.f64 phi2 phi1)
accuracy100.0%
(*.f64 R (-.f64 phi2 phi1))
accuracy100.0%
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
accuracy100.0%
(*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
accuracy100.0%
(/.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 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)))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
accuracy99.7%
(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)))))
Results
1.1s224×5exit
14.0ms26×0valid
9.0ms1valid
Compiler

Compiled 526 to 56 computations (89.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 608.0ms
ival-mult: 135.0ms (22.2% of total)
backward-pass: 131.0ms (21.5% of total)
ival-cos: 110.0ms (18.1% of total)
compiled-spec: 70.0ms (11.5% of total)
ival-sin: 66.0ms (10.9% of total)
ival-div: 34.0ms (5.6% of total)
ival-neg: 24.0ms (3.9% of total)
ival-add: 17.0ms (2.8% of total)
ival-sub: 15.0ms (2.5% of total)
ival-sqrt: 4.0ms (0.7% of total)
const: 1.0ms (0.2% of total)

series154.0ms (0.8%)

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

189 calls:

TimeVariablePointExpression
33.0ms
phi2
@-inf
(/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2)))
14.0ms
phi1
@inf
(/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2)))
9.0ms
lambda1
@-inf
(* R (sqrt (+ (* (/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2))) (/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
8.0ms
R
@-inf
(/ (* (- 0 phi1) (- (* R R) (* (/ (* R (* R phi2)) phi1) (/ phi2 phi1)))) (+ R (/ (* R phi2) phi1)))
6.0ms
R
@-inf
(- (* (* 1/2 R) (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (* R lambda2) (cos (* 1/2 phi1))))

rewrite384.0ms (2.1%)

Algorithm
batch-egg-rewrite
Rules
2634×*-lowering-*.f32
2634×*-lowering-*.f64
1546×/-lowering-/.f32
1546×/-lowering-/.f64
1492×fma-lowering-fma.f32
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
060373
1373198
23789198
08208198
Stop Event
iter limit
node limit
Counts
24 → 493
Calls
Call 1
Inputs
(* R (sqrt (+ (* (/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2))) (/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2)))))
(sqrt (+ (* (/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2))) (/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2)))) (* (- phi1 phi2) (- phi1 phi2))))
(/ (+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (/ 1 (- lambda1 lambda2)))
(+ (+ (* (cos (* phi1 1/2)) (cos (* phi2 1/2))) (neg (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))) (+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2)))))
(* R (- phi2 phi1))
(- phi2 phi1)
(/ (* (- 0 phi1) (- (* R R) (* (/ (* R (* R phi2)) phi1) (/ phi2 phi1)))) (+ R (/ (* R phi2) phi1)))
(* (- 0 phi1) (- (* R R) (* (/ (* R (* R phi2)) phi1) (/ phi2 phi1))))
(- (* R R) (* (/ (* R (* R phi2)) phi1) (/ phi2 phi1)))
(- 0 phi1)
(* R (* (cos (* 1/2 (+ phi1 phi2))) lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) lambda2)
(cos (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
(- (* (* 1/2 R) (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (* R lambda2) (cos (* 1/2 phi1))))
(* (* 1/2 R) (* (* lambda2 phi2) (sin (* 1/2 phi1))))
(* 1/2 R)
(* (* lambda2 phi2) (sin (* 1/2 phi1)))
(+ (* (neg (sin (* phi2 1/2))) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (sin (* phi1 1/2))))
(* (sin (* phi2 1/2)) (sin (* phi1 1/2)))
(cos (* phi1 1/2))
(/ (* R phi2) phi1)
(cos (* 1/2 phi1))
(sin (* 1/2 phi1))
Outputs
(*.f64 R (hypot.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.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 phi1 phi2)))))) (*.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 phi1 phi2))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2))
(hypot.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)))
(hypot.f64 (-.f64 phi1 phi2) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)))
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (-.f64 phi1 phi2))
(hypot.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))
(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 phi1 phi2)))))) (*.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 phi1 phi2))) (-.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 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.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 phi1 phi2)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.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 phi1 phi2)))))) (*.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 phi1 phi2))) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)))) #s(literal -1 binary64)))
(neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.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 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 3 binary64))) (*.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.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 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 3 binary64))) #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 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) #s(literal 1 binary64)) (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.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 phi1 phi2))) (-.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 phi1 phi2))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.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 phi1 phi2))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.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 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.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 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 #s(literal 1/2 binary64) phi2)))))) (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 #s(literal 1/2 binary64) phi2))))) (-.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))))))) (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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(-.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(-.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 0 binary64)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (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 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #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 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.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 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal -1 binary64))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (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 #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 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(/.f64 (-.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (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 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))))) (*.f64 (+.f64 (*.f64 (+.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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))))) (*.f64 (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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (*.f64 (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))))) (*.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) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (*.f64 (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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))))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(/.f64 (+.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) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (+.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) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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)))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(/.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(/.f64 (neg.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 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #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 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 #s(literal 1/2 binary64) phi2)))))) (-.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 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 #s(literal 1/2 binary64) 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) phi2))))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 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) (+.f64 phi1 phi2))))))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #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 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal -1 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 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 1 binary64))
(*.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(*.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (/.f64 #s(literal 1 binary64) (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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+.f64 (*.f64 R phi2) (*.f64 R (-.f64 #s(literal 0 binary64) phi1)))
(+.f64 (*.f64 R phi2) (*.f64 (-.f64 #s(literal 0 binary64) phi1) R))
(/.f64 (*.f64 R (-.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (*.f64 phi1 (*.f64 phi1 phi1)))) (+.f64 (*.f64 phi2 phi2) (*.f64 phi1 (+.f64 phi1 phi2))))
(/.f64 (*.f64 R (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (+.f64 phi1 phi2))
(/.f64 (*.f64 (-.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (*.f64 phi1 (*.f64 phi1 phi1))) R) (+.f64 (*.f64 phi2 phi2) (*.f64 phi1 (+.f64 phi1 phi2))))
(/.f64 (*.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) R) (+.f64 phi1 phi2))
(*.f64 R (-.f64 phi2 phi1))
(*.f64 (-.f64 phi2 phi1) R)
(+.f64 phi2 (-.f64 #s(literal 0 binary64) phi1))
(+.f64 (-.f64 #s(literal 0 binary64) phi1) phi2)
(+.f64 (+.f64 phi2 #s(literal 0 binary64)) (-.f64 #s(literal 0 binary64) phi1))
(-.f64 phi2 phi1)
(-.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2)) (/.f64 (*.f64 phi1 phi1) (+.f64 phi1 phi2)))
(-.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (+.f64 (*.f64 phi2 phi2) (*.f64 phi1 (+.f64 phi1 phi2)))) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (+.f64 (*.f64 phi2 phi2) (*.f64 phi1 (+.f64 phi1 phi2)))))
(-.f64 (+.f64 phi2 #s(literal 0 binary64)) phi1)
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 phi1 (+.f64 phi1 phi2))) (-.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (*.f64 phi1 (*.f64 phi1 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi1 phi2) (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(/.f64 (-.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (*.f64 phi1 (*.f64 phi1 phi1))) (+.f64 (*.f64 phi2 phi2) (*.f64 phi1 (+.f64 phi1 phi2))))
(/.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (+.f64 phi1 phi2))
(/.f64 (neg.f64 (-.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 phi1 (+.f64 phi1 phi2)))))
(/.f64 (neg.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (neg.f64 (+.f64 phi1 phi2)))
(/.f64 (+.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (pow.f64 (-.f64 #s(literal 0 binary64) phi1) #s(literal 3 binary64))) (+.f64 (*.f64 phi2 phi2) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 0 binary64) phi1)) (*.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))))
(/.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 0 binary64) phi1))) (-.f64 phi2 (-.f64 #s(literal 0 binary64) phi1)))
(pow.f64 (/.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 phi1 (+.f64 phi1 phi2))) (-.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 phi1 phi2) (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) #s(literal -1 binary64))
(*.f64 (-.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 phi2) (*.f64 phi1 (+.f64 phi1 phi2)))))
(*.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))
(*.f64 (/.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1))))
(*.f64 (/.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) (-.f64 phi1 phi2))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 R (/.f64 phi1 phi2)))))) #s(literal -1 binary64)))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(neg.f64 (/.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)) (-.f64 #s(literal 0 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 R (/.f64 phi1 phi2))))) #s(literal 1 binary64)))
(/.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 R (/.f64 phi1 phi2)))))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1))) (-.f64 #s(literal 0 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (*.f64 (*.f64 phi1 phi1) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (*.f64 phi1 (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)))) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(/.f64 (*.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)) #s(literal 1 binary64)) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (-.f64 R (/.f64 R (/.f64 phi1 phi2)))) (*.f64 phi1 phi1))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (-.f64 R (/.f64 R (/.f64 phi1 phi2)))) phi1)
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 R (/.f64 phi1 phi2))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 R (/.f64 phi1 phi2))))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(*.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)) (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 R (/.f64 phi1 phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(*.f64 (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)))
(*.f64 (-.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (/.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (*.f64 R (*.f64 R R)) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (/.f64 R (/.f64 phi1 phi2))))) (+.f64 (*.f64 R R) (*.f64 (/.f64 R (/.f64 phi1 phi2)) (-.f64 (/.f64 R (/.f64 phi1 phi2)) R))))
(*.f64 (/.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)) (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (-.f64 R (/.f64 R (/.f64 phi1 phi2))))
(+.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
(+.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)))
(+.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) #s(literal 0 binary64)) (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (*.f64 R R)) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
(+.f64 (*.f64 #s(literal 0 binary64) (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)))
(+.f64 (*.f64 (*.f64 R R) (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)))
(neg.f64 (*.f64 phi1 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
(neg.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) phi1))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (*.f64 phi1 phi1))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) phi1)
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 R R) (*.f64 R (*.f64 R (*.f64 R R)))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (+.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (*.f64 phi1 phi1)))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 R R) (*.f64 R (*.f64 R (*.f64 R R)))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))) (*.f64 (+.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) phi1))
(/.f64 (*.f64 (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (*.f64 phi1 phi1)))
(/.f64 (*.f64 (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))) (*.f64 (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) phi1))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (-.f64 (*.f64 (*.f64 R R) (*.f64 R (*.f64 R (*.f64 R R)))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (-.f64 (*.f64 (*.f64 R R) (*.f64 R (*.f64 R (*.f64 R R)))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))))) (*.f64 phi1 (+.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))) (*.f64 phi1 (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
(/.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 phi1 phi1))
(/.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))) phi1)
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 (*.f64 R R) (*.f64 R (*.f64 R (*.f64 R R)))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))))) (+.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 R R) (*.f64 R (*.f64 R (*.f64 R R)))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))))
(/.f64 (*.f64 (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))
(*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))
(+.f64 (*.f64 R R) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))
(+.f64 (*.f64 R R) (*.f64 (neg.f64 (/.f64 R (/.f64 phi1 phi2))) (/.f64 R (/.f64 phi1 phi2))))
(+.f64 (*.f64 R R) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
(+.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))
(+.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (+.f64 (*.f64 (neg.f64 (/.f64 R (/.f64 phi1 phi2))) (/.f64 R (/.f64 phi1 phi2))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))
(+.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
(+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))
(+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (*.f64 R R))
(-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))
(-.f64 (*.f64 R R) (-.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
(-.f64 (/.f64 (*.f64 (*.f64 R R) (*.f64 R (*.f64 R (*.f64 R R)))) (+.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))) (/.f64 (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (+.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))))
(-.f64 (/.f64 (*.f64 R (*.f64 R (*.f64 R R))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (/.f64 (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
(fma.f64 R R (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))
(fma.f64 R R (neg.f64 (-.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))))
(fma.f64 (pow.f64 R #s(literal 1 binary64)) (pow.f64 R #s(literal 1 binary64)) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))
(fma.f64 (pow.f64 R #s(literal 1 binary64)) (pow.f64 R #s(literal 1 binary64)) (neg.f64 (-.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (-.f64 (*.f64 (*.f64 R R) (*.f64 R (*.f64 R (*.f64 R R)))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))))
(/.f64 (-.f64 (*.f64 (*.f64 R R) (*.f64 R (*.f64 R (*.f64 R R)))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))) (+.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))))
(/.f64 (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 R R) (*.f64 R (*.f64 R (*.f64 R R)))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))))) (neg.f64 (+.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))))
(/.f64 (neg.f64 (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))) (neg.f64 (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
(/.f64 (+.f64 (*.f64 (*.f64 R R) (*.f64 R (*.f64 R (*.f64 R R)))) (pow.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) #s(literal 3 binary64))) (+.f64 (*.f64 R (*.f64 R (*.f64 R R))) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (*.f64 (*.f64 R R) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) #s(literal 3 binary64)) (pow.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) #s(literal 3 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (-.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))))
(/.f64 (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (-.f64 (*.f64 R R) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
(/.f64 (-.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (-.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
(pow.f64 (/.f64 (+.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (-.f64 (*.f64 (*.f64 R R) (*.f64 R (*.f64 R (*.f64 R R)))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))) #s(literal -1 binary64))
(*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 R (/.f64 R (/.f64 phi1 phi2))))
(*.f64 (-.f64 (*.f64 (*.f64 R R) (*.f64 R (*.f64 R (*.f64 R R)))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))))
(*.f64 (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
(+.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) phi1))
(+.f64 (-.f64 #s(literal 0 binary64) phi1) #s(literal 0 binary64))
(-.f64 #s(literal 0 binary64) phi1)
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 phi1)))
(-.f64 (/.f64 #s(literal 0 binary64) phi1) (/.f64 (*.f64 phi1 phi1) phi1))
(neg.f64 phi1)
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 phi1 phi1))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) phi1)
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 (+.f64 #s(literal 0 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) phi1) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 0 binary64) phi1)) (*.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) phi1)))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 0 binary64) phi1))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) phi1)))
(pow.f64 (/.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64))
(pow.f64 (/.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) phi1)
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 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 lambda2))
(*.f64 lambda2 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) R)
(*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.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 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 #s(literal 1/2 binary64) phi2)))))) (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 #s(literal 1/2 binary64) phi2))))) (-.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))))))) (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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(-.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(-.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 0 binary64)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (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 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #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 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.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 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal -1 binary64))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (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 #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 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(/.f64 (-.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (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 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))))) (*.f64 (+.f64 (*.f64 (+.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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))))) (*.f64 (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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (*.f64 (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))))) (*.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) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (*.f64 (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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))))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(/.f64 (+.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) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (+.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) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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)))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(/.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(/.f64 (neg.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 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #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 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 #s(literal 1/2 binary64) phi2)))))) (-.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 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 #s(literal 1/2 binary64) 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) phi2))))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 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) (+.f64 phi1 phi2))))))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #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 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal -1 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 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 1 binary64))
(*.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #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 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 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(*.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (/.f64 #s(literal 1 binary64) (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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) phi2))
(+.f64 (*.f64 #s(literal 1/2 binary64) phi2) (*.f64 phi1 #s(literal 1/2 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) phi2))
(fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(fma.f64 phi2 #s(literal 1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(/.f64 (+.f64 (pow.f64 (*.f64 phi1 #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1/2 binary64) phi2) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) phi2)))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) phi2) #s(literal 3 binary64)) (pow.f64 (*.f64 phi1 #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (*.f64 phi1 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))
(/.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 phi1 phi2))
(*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))
(+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (+.f64 (*.f64 (neg.f64 (*.f64 lambda2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) R) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (+.f64 (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+.f64 (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))))
(-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (/.f64 (pow.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(-.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (*.f64 R lambda2) (*.f64 R 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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(fma.f64 R (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 lambda2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(fma.f64 R (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 lambda2))) (neg.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 lambda2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 lambda2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (neg.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 lambda2 (*.f64 (*.f64 phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 R #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(fma.f64 lambda2 (*.f64 (*.f64 phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 R #s(literal 1/2 binary64))) (neg.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 lambda2)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(fma.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 lambda2)) (neg.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (*.f64 phi2 lambda2) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 R #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(fma.f64 (*.f64 phi2 lambda2) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 R #s(literal 1/2 binary64))) (neg.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 lambda2)) (*.f64 R #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 lambda2)) (*.f64 R #s(literal 1/2 binary64)) (neg.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (*.f64 (*.f64 R (*.f64 phi2 lambda2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(fma.f64 (*.f64 (*.f64 R (*.f64 phi2 lambda2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 lambda2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(fma.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 lambda2) (neg.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) lambda2) (*.f64 phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(fma.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) lambda2) (*.f64 phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 lambda2)) #s(literal 1/2 binary64)) R (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 lambda2)) #s(literal 1/2 binary64)) R (neg.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 R lambda2) (*.f64 R 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 (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 R lambda2) (*.f64 R 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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 R lambda2) (*.f64 R 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))))))))) (neg.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 3 binary64)) (pow.f64 (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 (*.f64 (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)))))
(/.f64 (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (-.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(pow.f64 (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 R lambda2) (*.f64 R 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 binary64))
(*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(*.f64 (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 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 R lambda2) (*.f64 R 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) (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 lambda2))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 lambda2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))))
(*.f64 lambda2 (*.f64 (*.f64 phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 R #s(literal 1/2 binary64))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 lambda2)))
(*.f64 (*.f64 phi2 lambda2) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 R #s(literal 1/2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 lambda2)) (*.f64 R #s(literal 1/2 binary64)))
(*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 lambda2))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(*.f64 (*.f64 (*.f64 R (*.f64 phi2 lambda2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 lambda2))
(*.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) lambda2) (*.f64 phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 lambda2)) #s(literal 1/2 binary64)) R)
(*.f64 R #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) R)
(*.f64 phi2 (*.f64 lambda2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 lambda2))
(*.f64 lambda2 (*.f64 phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(*.f64 (*.f64 phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda2)
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi2)
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(-.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) phi2))))) (-.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(-.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 0 binary64)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (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) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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))))))))) (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 binary64))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(*.f64 (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #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 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.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) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(-.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #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 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(/.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #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 phi1 phi2))))) #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 phi1 phi2))))) #s(literal -1 binary64))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 phi1 (*.f64 R phi2))) #s(literal -1 binary64)))
(neg.f64 (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1)))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) phi1))
(/.f64 R (/.f64 phi1 phi2))
(/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 phi1 (*.f64 R phi2)) #s(literal 1 binary64)))
(/.f64 (*.f64 R phi2) phi1)
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 phi1 (*.f64 R phi2))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 (*.f64 (*.f64 R phi2) #s(literal 1 binary64)) phi1)
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2))) (neg.f64 (-.f64 #s(literal 0 binary64) phi1)))
(/.f64 (*.f64 R #s(literal 1 binary64)) (/.f64 phi1 phi2))
(pow.f64 (/.f64 phi1 (*.f64 R phi2)) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 R (/.f64 phi2 phi1))
(*.f64 phi2 (*.f64 R (/.f64 #s(literal 1 binary64) phi1)))
(*.f64 phi2 (/.f64 R phi1))
(*.f64 #s(literal 1 binary64) (/.f64 R (/.f64 phi1 phi2)))
(*.f64 (*.f64 R phi2) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (/.f64 phi2 phi1) R)
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) phi1)))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 phi1 phi1))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R phi2)) (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))) phi1)
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))

simplify694.0ms (3.7%)

Algorithm
egg-herbie
Rules
7706×*-lowering-*.f32
7706×*-lowering-*.f64
4934×+-lowering-+.f64
4934×+-lowering-+.f32
1738×distribute-lft-in
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
0111716755
1408615668
0885215668
Stop Event
iter limit
node limit
Counts
756 → 756
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 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 (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 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 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 (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 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 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))
(* (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))
(* -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 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))))
(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))))
(* R (- phi2 phi1))
(* R (- phi2 phi1))
(* R (- phi2 phi1))
(* R (- phi2 phi1))
(* R (- phi2 phi1))
(* R (- phi2 phi1))
(* R (- phi2 phi1))
(* R (- phi2 phi1))
(* R (- phi2 phi1))
(* R (- phi2 phi1))
(* R (- phi2 phi1))
(* R (- phi2 phi1))
(* -1 (* R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* R phi2)
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* R phi2)
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(* -1 (* R phi1))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 phi1)
(- phi2 phi1)
(- phi2 phi1)
(- phi2 phi1)
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
phi2
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
phi2
(+ phi2 (* -1 phi1))
(+ phi2 (* -1 phi1))
(+ phi2 (* -1 phi1))
(* -1 phi1)
(* phi1 (- (/ phi2 phi1) 1))
(* phi1 (- (/ phi2 phi1) 1))
(* phi1 (- (/ phi2 phi1) 1))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* R phi2)
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(* -1 (* R phi1))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (- (* -1 (/ phi2 phi1)) 1))
(/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (- (* -1 (/ phi2 phi1)) 1))
(/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (- (* -1 (/ phi2 phi1)) 1))
(/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (- (* -1 (/ phi2 phi1)) 1))
(* -1 (* R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* R phi2))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* R phi2)
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)
(/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)
(/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)
(* -1 (* (pow R 2) phi1))
(* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))
(* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))
(* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))
(* -1 (* (pow R 2) phi1))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (* (pow R 2) phi1))
(+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))
(+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))
(+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(pow R 2)
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2)))
(* (pow phi2 2) (- (/ (pow R 2) (pow phi2 2)) (/ (pow R 2) (pow phi1 2))))
(* (pow phi2 2) (- (/ (pow R 2) (pow phi2 2)) (/ (pow R 2) (pow phi1 2))))
(* (pow phi2 2) (- (/ (pow R 2) (pow phi2 2)) (/ (pow R 2) (pow phi1 2))))
(* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2)))
(* (pow phi2 2) (- (/ (pow R 2) (pow phi2 2)) (/ (pow R 2) (pow phi1 2))))
(* (pow phi2 2) (- (/ (pow R 2) (pow phi2 2)) (/ (pow R 2) (pow phi1 2))))
(* (pow phi2 2) (- (/ (pow R 2) (pow phi2 2)) (/ (pow R 2) (pow phi1 2))))
(* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2)))
(/ (- (* (pow R 2) (pow phi1 2)) (* (pow R 2) (pow phi2 2))) (pow phi1 2))
(/ (- (* (pow R 2) (pow phi1 2)) (* (pow R 2) (pow phi2 2))) (pow phi1 2))
(/ (- (* (pow R 2) (pow phi1 2)) (* (pow R 2) (pow phi2 2))) (pow phi1 2))
(pow R 2)
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(pow R 2)
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 phi2))))
(+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (cos (* 1/2 phi2)))
(+ (* -1/2 (* lambda2 (* phi1 (sin (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2))))
(+ (* lambda2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi2)))) (* -1/8 (* lambda2 (* phi1 (cos (* 1/2 phi2))))))))
(+ (* lambda2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/8 (* lambda2 (cos (* 1/2 phi2)))) (* 1/48 (* lambda2 (* phi1 (sin (* 1/2 phi2))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(* lambda2 (cos (* 1/2 phi1)))
(+ (* -1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1))))
(+ (* lambda2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi1)))) (* -1/8 (* lambda2 (* phi2 (cos (* 1/2 phi1))))))))
(+ (* lambda2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/8 (* lambda2 (cos (* 1/2 phi1)))) (* 1/48 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (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)))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(* -1 (* R (- (* -1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* -1 (* lambda2 (cos (* 1/2 phi1)))))))
(* -1 (* R (- (* -1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* -1 (* lambda2 (cos (* 1/2 phi1)))))))
(* -1 (* R (- (* -1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* -1 (* lambda2 (cos (* 1/2 phi1)))))))
(* -1 (* R (- (* -1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* -1 (* lambda2 (cos (* 1/2 phi1)))))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* -1 (* lambda2 (- (* -1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* -1 (* R (cos (* 1/2 phi1)))))))
(* -1 (* lambda2 (- (* -1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* -1 (* R (cos (* 1/2 phi1)))))))
(* -1 (* lambda2 (- (* -1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* -1 (* R (cos (* 1/2 phi1)))))))
(* -1 (* lambda2 (- (* -1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* -1 (* R (cos (* 1/2 phi1)))))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))
(* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))
(* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))
(* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))
(* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))
(* -1 (* R lambda2))
(- (* 1/4 (* R (* lambda2 (* phi1 phi2)))) (* R lambda2))
(- (* phi1 (+ (* 1/8 (* R (* lambda2 phi1))) (* 1/4 (* R (* lambda2 phi2))))) (* R lambda2))
(- (* phi1 (+ (* 1/4 (* R (* lambda2 phi2))) (* phi1 (- (* -1/96 (* R (* lambda2 (* phi1 phi2)))) (* -1/8 (* R lambda2)))))) (* R lambda2))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/4 (* R (* lambda2 (* phi1 phi2))))
(* phi1 (+ (* -1/96 (* R (* lambda2 (* (pow phi1 2) phi2)))) (* 1/4 (* R (* lambda2 phi2)))))
(* phi1 (+ (* 1/4 (* R (* lambda2 phi2))) (* (pow phi1 2) (+ (* -1/96 (* R (* lambda2 phi2))) (* 1/7680 (* R (* lambda2 (* (pow phi1 2) phi2))))))))
(* phi1 (+ (* 1/4 (* R (* lambda2 phi2))) (* (pow phi1 2) (+ (* -1/96 (* R (* lambda2 phi2))) (* (pow phi1 2) (+ (* -1/1290240 (* R (* lambda2 (* (pow phi1 2) phi2)))) (* 1/7680 (* R (* lambda2 phi2)))))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 R)
(* 1/2 R)
(* 1/2 R)
(* 1/2 R)
(* 1/2 R)
(* 1/2 R)
(* 1/2 R)
(* 1/2 R)
(* 1/2 R)
(* 1/2 R)
(* 1/2 R)
(* 1/2 R)
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* 1/2 (* lambda2 (* phi1 phi2)))
(* phi1 (+ (* -1/48 (* lambda2 (* (pow phi1 2) phi2))) (* 1/2 (* lambda2 phi2))))
(* phi1 (+ (* 1/2 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/48 (* lambda2 phi2)) (* 1/3840 (* lambda2 (* (pow phi1 2) phi2)))))))
(* phi1 (+ (* 1/2 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/48 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/645120 (* lambda2 (* (pow phi1 2) phi2))) (* 1/3840 (* lambda2 phi2))))))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (* 1/2 (sin (* 1/2 phi1)))))
(* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/48 (sin (* 1/2 phi1))))))))
(* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (+ (* 1/48 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/3840 (sin (* 1/2 phi1))) (* 1/3840 (sin (* 1/2 phi1)))))))))))
(* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (+ (* 1/48 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/3840 (sin (* 1/2 phi1))) (+ (* 1/3840 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/645120 (sin (* 1/2 phi1))) (* 1/645120 (sin (* 1/2 phi1))))))))))))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (* 1/2 (sin (* 1/2 phi2)))))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/48 (sin (* 1/2 phi2))))))))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (+ (* 1/48 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/3840 (sin (* 1/2 phi2))) (* 1/3840 (sin (* 1/2 phi2)))))))))))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (+ (* 1/48 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/3840 (sin (* 1/2 phi2))) (+ (* 1/3840 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/645120 (sin (* 1/2 phi2))) (* 1/645120 (sin (* 1/2 phi2))))))))))))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(* 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)))
1
(+ 1 (* -1/8 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8)))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
1
(+ 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)
(* phi1 (+ 1/2 (* -1/48 (pow phi1 2))))
(* phi1 (+ 1/2 (* (pow phi1 2) (- (* 1/3840 (pow phi1 2)) 1/48))))
(* phi1 (+ 1/2 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3840 (* -1/645120 (pow phi1 2)))) 1/48))))
(sin (* 1/2 phi1))
(sin (* 1/2 phi1))
(sin (* 1/2 phi1))
(sin (* 1/2 phi1))
(sin (* 1/2 phi1))
(sin (* 1/2 phi1))
(sin (* 1/2 phi1))
(sin (* 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 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi1) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 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) phi2)) #s(literal 2 binary64))) (*.f64 phi2 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) 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/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.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) 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 R (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.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 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 (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (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/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.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) 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))) #s(literal -1/2 binary64))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (+.f64 #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) 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/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.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) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))))))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (+ (* -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 R #s(literal 1/2 binary64)) 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)) 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) (-.f64 lambda1 lambda2)) (*.f64 phi1 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) (-.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 (+ (* -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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.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)) 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 (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 #s(literal 1/2 binary64) (*.f64 (*.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 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 phi2 (*.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 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #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 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 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 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 #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 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)))))))) (*.f64 phi2 (*.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 R phi2) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #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 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 (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 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #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 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (+ (* -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 R #s(literal 1/2 binary64)) phi2) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.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 R (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (*.f64 R 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 (/.f64 (-.f64 lambda1 lambda2) phi2) (/.f64 (-.f64 lambda1 lambda2) phi2)))) (*.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) phi2) (/.f64 (-.f64 lambda1 lambda2) 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 (+ (* -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 (*.f64 (*.f64 R 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 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2))) phi2)) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* 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 (*.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 (*.f64 lambda2 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 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 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 (*.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 (+ (* -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)) (neg.f64 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)) (neg.f64 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)) (neg.f64 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 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 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 R (*.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 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 (*.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 (+ (* -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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (+ (* -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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 (*.f64 lambda2 lambda2))))) (/.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)))
(* -1 (* R (* lambda2 (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.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 #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 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 (* 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 (*.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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (*.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))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 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) phi2)) #s(literal 2 binary64))) (*.f64 phi2 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) 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/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.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) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.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 #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) 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/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.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) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) (*.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 (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (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/4 binary64) (/.f64 (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.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) 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))) #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) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (+ (* -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) (-.f64 lambda1 lambda2)) (*.f64 phi1 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 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (*.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) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))))
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (+ (* -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 #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)) 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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.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)) 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 (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 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi2 (*.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 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #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 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 (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 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 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.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 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #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 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (*.f64 phi2 (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #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 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))))))) (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))))))))))))))
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 #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) phi2) (/.f64 (-.f64 lambda1 lambda2) 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 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.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 (/.f64 (-.f64 lambda1 lambda2) phi2) (/.f64 (-.f64 lambda1 lambda2) 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) phi2) (/.f64 (-.f64 lambda1 lambda2) 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 (+ (* -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 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 (*.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 (+ (* -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 (*.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 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 lambda1)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 lambda1 lambda1))))) (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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)))) (neg.f64 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)))) (neg.f64 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)))) (neg.f64 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 (*.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 (+ (* -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 (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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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 #s(literal 1/2 binary64) (/.f64 (/.f64 (*.f64 lambda1 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (/.f64 (*.f64 #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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (* (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 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))))))
(* (+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (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 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))))))))
(* (+ (* -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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (* (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))))) (neg.f64 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))))) (neg.f64 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))))) (neg.f64 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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (+ (* -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 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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 (* (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 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (*.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))))))))
(+ (* -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 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)) (*.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))))))))
(+ (* -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 (- phi2 phi1))
(*.f64 R (-.f64 phi2 phi1))
(* R (- phi2 phi1))
(*.f64 R (-.f64 phi2 phi1))
(* R (- phi2 phi1))
(*.f64 R (-.f64 phi2 phi1))
(* R (- phi2 phi1))
(*.f64 R (-.f64 phi2 phi1))
(* R (- phi2 phi1))
(*.f64 R (-.f64 phi2 phi1))
(* R (- phi2 phi1))
(*.f64 R (-.f64 phi2 phi1))
(* R (- phi2 phi1))
(*.f64 R (-.f64 phi2 phi1))
(* R (- phi2 phi1))
(*.f64 R (-.f64 phi2 phi1))
(* R (- phi2 phi1))
(*.f64 R (-.f64 phi2 phi1))
(* R (- phi2 phi1))
(*.f64 R (-.f64 phi2 phi1))
(* R (- phi2 phi1))
(*.f64 R (-.f64 phi2 phi1))
(* R (- phi2 phi1))
(*.f64 R (-.f64 phi2 phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(*.f64 R (-.f64 phi2 phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(*.f64 R (-.f64 phi2 phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(*.f64 R (-.f64 phi2 phi1))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* R phi2)
(*.f64 R phi2)
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (/.f64 (*.f64 R phi1) phi2) R))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (/.f64 (*.f64 R phi1) phi2) R))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (/.f64 (*.f64 R phi1) phi2) R))
(* R phi2)
(*.f64 R phi2)
(+ (* -1 (* R phi1)) (* R phi2))
(*.f64 R (-.f64 phi2 phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(*.f64 R (-.f64 phi2 phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(*.f64 R (-.f64 phi2 phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(- phi2 phi1)
(-.f64 phi2 phi1)
(- phi2 phi1)
(-.f64 phi2 phi1)
(- phi2 phi1)
(-.f64 phi2 phi1)
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
phi2
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64)))
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64)))
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (/.f64 phi1 phi2) #s(literal -1 binary64)))
phi2
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* phi1 (- (/ phi2 phi1) 1))
(*.f64 phi1 (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64)))
(* phi1 (- (/ phi2 phi1) 1))
(*.f64 phi1 (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64)))
(* phi1 (- (/ phi2 phi1) 1))
(*.f64 phi1 (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64)))
(* -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 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* R phi2)
(*.f64 R phi2)
(+ (* -1 (* R phi1)) (* R phi2))
(*.f64 R (-.f64 phi2 phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(*.f64 R (-.f64 phi2 phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(*.f64 R (-.f64 phi2 phi1))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (- (* -1 (/ phi2 phi1)) 1))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)))
(/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (- (* -1 (/ phi2 phi1)) 1))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)))
(/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (- (* -1 (/ phi2 phi1)) 1))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)))
(/ (* R (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))) (- (* -1 (/ phi2 phi1)) 1))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)))
(* -1 (* R phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(*.f64 R (-.f64 phi2 phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(*.f64 R (-.f64 phi2 phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(*.f64 R (-.f64 phi2 phi1))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* R phi2)
(*.f64 R phi2)
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (/.f64 (*.f64 R phi1) phi2) R))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (/.f64 (*.f64 R phi1) phi2) R))
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (/.f64 (*.f64 R phi1) phi2) R))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)
(/.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 R R)) (*.f64 (*.f64 R phi1) (*.f64 R phi1))) phi1)
(/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)
(/.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 R R)) (*.f64 (*.f64 R phi1) (*.f64 R phi1))) phi1)
(/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)
(/.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 R R)) (*.f64 (*.f64 R phi1) (*.f64 R phi1))) phi1)
(* -1 (* (pow R 2) phi1))
(*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R)))
(* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))
(*.f64 phi1 (-.f64 (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 R R)))
(* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))
(*.f64 phi1 (-.f64 (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 R R)))
(* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))
(*.f64 phi1 (-.f64 (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 R R)))
(* -1 (* (pow R 2) phi1))
(*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R)))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1))))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1))))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* -1 (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* -1 (* (pow R 2) phi1))
(*.f64 phi1 (-.f64 #s(literal 0 binary64) (*.f64 R R)))
(+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))
(-.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 phi1 (*.f64 R R)))
(+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))
(-.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 phi1 (*.f64 R R)))
(+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))
(-.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 phi1 (*.f64 R R)))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi1 (*.f64 R R)) (*.f64 phi2 phi2))))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi1 (*.f64 R R)) (*.f64 phi2 phi2))))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi1 (*.f64 R R)) (*.f64 phi2 phi2))))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi1 (*.f64 R R)) (*.f64 phi2 phi2))))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi1 (*.f64 R R)) (*.f64 phi2 phi2))))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi1 (*.f64 R R)) (*.f64 phi2 phi2))))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi2 2) (pow phi1 2))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R))
(pow R 2)
(*.f64 R R)
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)))
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)))
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)))
(* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2)))
(-.f64 #s(literal 0 binary64) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)))
(* (pow phi2 2) (- (/ (pow R 2) (pow phi2 2)) (/ (pow R 2) (pow phi1 2))))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) (*.f64 phi2 phi2)) (/.f64 (*.f64 R R) (*.f64 phi1 phi1))))
(* (pow phi2 2) (- (/ (pow R 2) (pow phi2 2)) (/ (pow R 2) (pow phi1 2))))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) (*.f64 phi2 phi2)) (/.f64 (*.f64 R R) (*.f64 phi1 phi1))))
(* (pow phi2 2) (- (/ (pow R 2) (pow phi2 2)) (/ (pow R 2) (pow phi1 2))))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) (*.f64 phi2 phi2)) (/.f64 (*.f64 R R) (*.f64 phi1 phi1))))
(* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2)))
(-.f64 #s(literal 0 binary64) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)))
(* (pow phi2 2) (- (/ (pow R 2) (pow phi2 2)) (/ (pow R 2) (pow phi1 2))))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) (*.f64 phi2 phi2)) (/.f64 (*.f64 R R) (*.f64 phi1 phi1))))
(* (pow phi2 2) (- (/ (pow R 2) (pow phi2 2)) (/ (pow R 2) (pow phi1 2))))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) (*.f64 phi2 phi2)) (/.f64 (*.f64 R R) (*.f64 phi1 phi1))))
(* (pow phi2 2) (- (/ (pow R 2) (pow phi2 2)) (/ (pow R 2) (pow phi1 2))))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) (*.f64 phi2 phi2)) (/.f64 (*.f64 R R) (*.f64 phi1 phi1))))
(* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2)))
(-.f64 #s(literal 0 binary64) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)))
(/ (- (* (pow R 2) (pow phi1 2)) (* (pow R 2) (pow phi2 2))) (pow phi1 2))
(*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) phi1))
(/ (- (* (pow R 2) (pow phi1 2)) (* (pow R 2) (pow phi2 2))) (pow phi1 2))
(*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) phi1))
(/ (- (* (pow R 2) (pow phi1 2)) (* (pow R 2) (pow phi2 2))) (pow phi1 2))
(*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) phi1))
(pow R 2)
(*.f64 R R)
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)))
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)))
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)))
(pow R 2)
(*.f64 R R)
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)))
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)))
(+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))
(-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi2 phi2) phi1)))
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* -1 phi1)
(-.f64 #s(literal 0 binary64) phi1)
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 phi2))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 phi1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 phi1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))))))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 phi1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 phi2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))))))
(+.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (cos (* 1/2 phi2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2)
(+ (* -1/2 (* lambda2 (* phi1 (sin (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* lambda2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi2)))) (* -1/8 (* lambda2 (* phi1 (cos (* 1/2 phi2))))))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 phi1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* lambda2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/8 (* lambda2 (cos (* 1/2 phi2)))) (* 1/48 (* lambda2 (* phi1 (sin (* 1/2 phi2))))))))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/48 binary64) (*.f64 (*.f64 phi1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
(* 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))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* 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))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (cos (* 1/2 phi1)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)
(+ (* -1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* lambda2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi1)))) (* -1/8 (* lambda2 (* phi2 (cos (* 1/2 phi1))))))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 phi2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(+ (* lambda2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/8 (* lambda2 (cos (* 1/2 phi1)))) (* 1/48 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/48 binary64) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(* 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))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* 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))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* 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))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* 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))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* 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))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* 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))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* 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))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* 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))))
(*.f64 lambda2 (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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/2 binary64)) (*.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))))))))
(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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)) (*.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))))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1))))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1))))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1))))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi2) phi1) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi2) phi1) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) phi2) phi1) #s(literal -1/2 binary64)))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) phi1) phi2)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) phi1) phi2)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) phi1) phi2)))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(-.f64 #s(literal 0 binary64) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2)) #s(literal -1/2 binary64))))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(-.f64 #s(literal 0 binary64) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2)) #s(literal -1/2 binary64))))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(-.f64 #s(literal 0 binary64) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2)) #s(literal -1/2 binary64))))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(*.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(*.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(*.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(*.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(*.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(*.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(*.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(* R (- (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))))
(*.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(* -1 (* R (- (* -1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* -1 (* lambda2 (cos (* 1/2 phi1)))))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* -1 (* R (- (* -1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* -1 (* lambda2 (cos (* 1/2 phi1)))))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* -1 (* R (- (* -1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* -1 (* lambda2 (cos (* 1/2 phi1)))))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* -1 (* R (- (* -1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* -1 (* lambda2 (cos (* 1/2 phi1)))))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* lambda2 (- (* -1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* -1 (* R (cos (* 1/2 phi1)))))))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (* -1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* -1 (* R (cos (* 1/2 phi1)))))))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (* -1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* -1 (* R (cos (* 1/2 phi1)))))))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (* -1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* -1 (* R (cos (* 1/2 phi1)))))))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))
(*.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))
(*.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))
(*.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(- (* 1/4 (* R (* lambda2 (* phi1 phi2)))) (* R lambda2))
(-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi2))) (*.f64 R lambda2))
(- (* phi1 (+ (* 1/8 (* R (* lambda2 phi1))) (* 1/4 (* R (* lambda2 phi2))))) (* R lambda2))
(-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 R lambda2) phi1)) (*.f64 #s(literal 1/4 binary64) (*.f64 R (*.f64 phi2 lambda2))))) (*.f64 R lambda2))
(- (* phi1 (+ (* 1/4 (* R (* lambda2 phi2))) (* phi1 (- (* -1/96 (* R (* lambda2 (* phi1 phi2)))) (* -1/8 (* R lambda2)))))) (* R lambda2))
(-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/96 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 R lambda2)))))) (*.f64 R lambda2))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(-.f64 (*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/4 (* R (* lambda2 (* phi1 phi2))))
(*.f64 (*.f64 #s(literal 1/4 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi2)))
(* phi1 (+ (* -1/96 (* R (* lambda2 (* (pow phi1 2) phi2)))) (* 1/4 (* R (* lambda2 phi2)))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 (*.f64 #s(literal -1/96 binary64) R) (*.f64 lambda2 (*.f64 phi2 (*.f64 phi1 phi1))))))
(* phi1 (+ (* 1/4 (* R (* lambda2 phi2))) (* (pow phi1 2) (+ (* -1/96 (* R (* lambda2 phi2))) (* 1/7680 (* R (* lambda2 (* (pow phi1 2) phi2))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 R (*.f64 phi2 lambda2)) #s(literal -1/96 binary64)) (*.f64 (*.f64 (*.f64 R lambda2) (*.f64 phi2 (*.f64 phi1 phi1))) #s(literal 1/7680 binary64))))))
(* phi1 (+ (* 1/4 (* R (* lambda2 phi2))) (* (pow phi1 2) (+ (* -1/96 (* R (* lambda2 phi2))) (* (pow phi1 2) (+ (* -1/1290240 (* R (* lambda2 (* (pow phi1 2) phi2)))) (* 1/7680 (* R (* lambda2 phi2)))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 R (*.f64 phi2 lambda2)) #s(literal -1/96 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (*.f64 R lambda2) (*.f64 phi2 (*.f64 phi1 phi1))) #s(literal -1/1290240 binary64)) (*.f64 (*.f64 R (*.f64 phi2 lambda2)) #s(literal 1/7680 binary64))))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 R #s(literal 1/2 binary64)) (*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 R)
(*.f64 R #s(literal 1/2 binary64))
(* 1/2 R)
(*.f64 R #s(literal 1/2 binary64))
(* 1/2 R)
(*.f64 R #s(literal 1/2 binary64))
(* 1/2 R)
(*.f64 R #s(literal 1/2 binary64))
(* 1/2 R)
(*.f64 R #s(literal 1/2 binary64))
(* 1/2 R)
(*.f64 R #s(literal 1/2 binary64))
(* 1/2 R)
(*.f64 R #s(literal 1/2 binary64))
(* 1/2 R)
(*.f64 R #s(literal 1/2 binary64))
(* 1/2 R)
(*.f64 R #s(literal 1/2 binary64))
(* 1/2 R)
(*.f64 R #s(literal 1/2 binary64))
(* 1/2 R)
(*.f64 R #s(literal 1/2 binary64))
(* 1/2 R)
(*.f64 R #s(literal 1/2 binary64))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* 1/2 (* lambda2 (* phi1 phi2)))
(*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 phi1 phi2))
(* phi1 (+ (* -1/48 (* lambda2 (* (pow phi1 2) phi2))) (* 1/2 (* lambda2 phi2))))
(*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) lambda2) (*.f64 phi2 (*.f64 phi1 phi1))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 lambda2))))
(* phi1 (+ (* 1/2 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/48 (* lambda2 phi2)) (* 1/3840 (* lambda2 (* (pow phi1 2) phi2)))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 lambda2)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) lambda2) phi2) (*.f64 (*.f64 #s(literal 1/3840 binary64) lambda2) (*.f64 phi2 (*.f64 phi1 phi1)))))))
(* phi1 (+ (* 1/2 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/48 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/645120 (* lambda2 (* (pow phi1 2) phi2))) (* 1/3840 (* lambda2 phi2))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 lambda2)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) lambda2) phi2) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal -1/645120 binary64) lambda2) (*.f64 phi2 (*.f64 phi1 phi1))) (*.f64 (*.f64 phi2 lambda2) #s(literal 1/3840 binary64))))))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (* 1/2 (sin (* 1/2 phi1)))))
(*.f64 phi2 #s(literal 0 binary64))
(* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/48 (sin (* 1/2 phi1))))))))
(*.f64 phi2 (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi2 phi2) #s(literal 0 binary64))))
(* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (+ (* 1/48 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/3840 (sin (* 1/2 phi1))) (* 1/3840 (sin (* 1/2 phi1)))))))))))
(*.f64 phi2 (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi2 phi2) #s(literal 0 binary64))))))
(* phi2 (+ (* -1/2 (sin (* 1/2 phi1))) (+ (* 1/2 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/48 (sin (* 1/2 phi1))) (+ (* 1/48 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/3840 (sin (* 1/2 phi1))) (+ (* 1/3840 (sin (* 1/2 phi1))) (* (pow phi2 2) (+ (* -1/645120 (sin (* 1/2 phi1))) (* 1/645120 (sin (* 1/2 phi1))))))))))))))
(*.f64 phi2 (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi2 phi2) #s(literal 0 binary64))))))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (* 1/2 (sin (* 1/2 phi2)))))
(*.f64 phi1 #s(literal 0 binary64))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/48 (sin (* 1/2 phi2))))))))
(*.f64 phi1 (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 0 binary64))))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (+ (* 1/48 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/3840 (sin (* 1/2 phi2))) (* 1/3840 (sin (* 1/2 phi2)))))))))))
(*.f64 phi1 (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 0 binary64))))))
(* phi1 (+ (* -1/2 (sin (* 1/2 phi2))) (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (+ (* 1/48 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/3840 (sin (* 1/2 phi2))) (+ (* 1/3840 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/645120 (sin (* 1/2 phi2))) (* 1/645120 (sin (* 1/2 phi2))))))))))))))
(*.f64 phi1 (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 0 binary64))))))))
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(+ (* -1 (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
#s(literal 0 binary64)
(* 1/2 (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1/3840 binary64)) (*.f64 (*.f64 #s(literal -1/645120 binary64) (*.f64 phi2 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* 1/2 (* phi1 (sin (* 1/2 phi2))))
(*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* phi1 (+ (* -1/48 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 (*.f64 phi1 phi1) #s(literal -1/48 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/3840 (* (pow phi1 2) (sin (* 1/2 phi2))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/48 binary64)) (*.f64 #s(literal 1/3840 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))) (* (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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1/3840 binary64)) (*.f64 (*.f64 (*.f64 phi1 phi1) #s(literal -1/645120 binary64)) (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)))
(* (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
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow phi1 2)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/8 binary64)))
(+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/384 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
1
#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)
(* phi1 (+ 1/2 (* -1/48 (pow phi1 2))))
(*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/48 binary64))))
(* phi1 (+ 1/2 (* (pow phi1 2) (- (* 1/3840 (pow phi1 2)) 1/48))))
(*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal 1/3840 binary64)) #s(literal -1/48 binary64)))))
(* phi1 (+ 1/2 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3840 (* -1/645120 (pow phi1 2)))) 1/48))))
(*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/3840 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/645120 binary64)))) #s(literal -1/48 binary64)))))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))

eval229.0ms (1.2%)

Compiler

Compiled 49431 to 3154 computations (93.6% saved)

prune297.0ms (1.6%)

Pruning

75 alts after pruning (71 fresh and 4 done)

PrunedKeptTotal
New1245361281
Fresh123547
Picked325
Done022
Total1260751335
Accuracy
100.0%
Counts
1335 → 75
Alt Table
Click to see full alt table
StatusAccuracyProgram
22.9%
(/.f64 (/.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 R R)) (*.f64 (*.f64 R phi1) (*.f64 R phi1))) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
12.4%
(/.f64 (/.f64 (*.f64 (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
17.4%
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
37.8%
(/.f64 (*.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) R) (+.f64 phi1 phi2))
25.3%
(/.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))
37.0%
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (-.f64 R (/.f64 R (/.f64 phi1 phi2)))) phi1)
14.5%
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1))))) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))))
32.1%
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 R (/.f64 R (/.f64 phi1 phi2))))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
22.9%
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (*.f64 R R)) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
38.5%
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
8.5%
(/.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1)) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
17.3%
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))))))
28.5%
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))))
55.3%
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 R (/.f64 phi1 phi2))))))
8.8%
(-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi2))) (*.f64 R lambda2))
9.1%
(-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/96 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 R lambda2)))))) (*.f64 R lambda2))
11.9%
(-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 R lambda2) phi1)) (*.f64 #s(literal 1/4 binary64) (*.f64 R (*.f64 phi2 lambda2))))) (*.f64 R lambda2))
53.1%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
20.0%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
14.6%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (/.f64 (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))))))
26.3%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (/.f64 (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))))
60.3%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (*.f64 phi2 (/.f64 R phi1)))))
14.6%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1))))))))
57.9%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1)))))
5.0%
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
25.3%
(*.f64 (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)))
9.3%
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
32.3%
(*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))) lambda2)
21.1%
(*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
21.0%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
12.1%
(*.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)))))
11.8%
(*.f64 (neg.f64 (*.f64 R lambda2)) (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)))))))
11.8%
(*.f64 (neg.f64 (*.f64 R lambda2)) (-.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))))))
11.8%
(*.f64 (neg.f64 (*.f64 R lambda2)) (+.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)))))))
10.1%
(*.f64 (neg.f64 (*.f64 R lambda2)) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
14.0%
(*.f64 (neg.f64 (*.f64 R lambda2)) (+.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)))))))
6.6%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)))))))
9.3%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
7.7%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
8.2%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
22.0%
(*.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)))))
54.7%
(*.f64 phi2 (-.f64 R (*.f64 R (/.f64 phi1 phi2))))
57.4%
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
33.6%
(*.f64 lambda2 (-.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) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 R lambda1)) lambda2)))
13.4%
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
33.1%
(*.f64 lambda1 (-.f64 (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
99.8%
(*.f64 R (hypot.f64 (/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 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.5%
(*.f64 R (hypot.f64 (/.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) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #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)))
99.8%
(*.f64 R (hypot.f64 (/.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 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)))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
41.2%
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (*.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)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
89.2%
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 phi1 #s(literal 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 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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)) (-.f64 phi1 phi2)))
81.0%
(*.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)))
81.8%
(*.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)))
88.8%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 phi1 phi2)))
89.2%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
40.1%
(*.f64 R (/.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (+.f64 phi1 phi2)))
17.4%
(*.f64 R (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 phi1 (+.f64 phi1 phi2))) (-.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (*.f64 phi1 (*.f64 phi1 phi1))))))
40.0%
(*.f64 R (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi1 phi2) (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
61.4%
(*.f64 R (-.f64 phi2 phi1))
21.7%
(*.f64 R (*.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) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) lambda2))
16.6%
(*.f64 R (*.f64 (/.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1)))))
21.8%
(*.f64 R (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda2))
11.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)))
40.0%
(*.f64 R (*.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2))))
19.7%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
12.3%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
19.5%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2))
21.0%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2))
54.3%
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
55.1%
(*.f64 R (*.f64 phi1 (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
32.8%
(*.f64 R phi2)
55.9%
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 R (/.f64 phi1 phi2)))))
Compiler

Compiled 4116 to 2342 computations (43.1% saved)

simplify283.0ms (1.5%)

Algorithm
egg-herbie
Localize:

Found 18 expressions of interest:

NewMetricScoreProgram
cost-diff0
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
cost-diff0
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
cost-diff128
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
cost-diff128
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
cost-diff256
(-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
cost-diff256
(*.f64 (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (-.f64 #s(literal 0 binary64) phi1))
cost-diff384
(/.f64 (*.f64 (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))
cost-diff448
(/.f64 (/.f64 (*.f64 (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
cost-diff0
(/.f64 (*.f64 phi2 phi2) phi1)
cost-diff0
(*.f64 R R)
cost-diff0
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
cost-diff0
(/.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1)) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
cost-diff0
(*.f64 R lambda2)
cost-diff0
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
cost-diff0
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
cost-diff0
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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))
cost-diff0
(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)))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2))
cost-diff0
(*.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)))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
Rules
5592×*-lowering-*.f32
5592×*-lowering-*.f64
2824×+-lowering-+.f64
2824×+-lowering-+.f32
1204×fma-lowering-fma.f32
Iterations

Useful iterations: 3 (0.0ms)

IterNodesCost
055569
1156559
2503550
32703495
08103495
Stop Event
iter limit
node limit
Calls
Call 1
Inputs
(* R (sqrt (+ (* (* (- (* (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))) (* (- phi1 phi2) (- phi1 phi2)))))
R
(sqrt (+ (* (* (- (* (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))) (* (- phi1 phi2) (- phi1 phi2))))
(* (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (- lambda1 lambda2))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))
(cos (* 1/2 phi1))
(* 1/2 phi1)
1/2
phi1
(cos (* 1/2 phi2))
(* 1/2 phi2)
phi2
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(sin (* 1/2 phi1))
(sin (* 1/2 phi2))
(- lambda1 lambda2)
lambda1
lambda2
(- phi1 phi2)
(- 0 (* R lambda2))
0
(* R lambda2)
R
lambda2
(/ (* (* R R) (/ (* phi2 phi2) phi1)) (+ R (/ (* R phi2) phi1)))
(* (* R R) (/ (* phi2 phi2) phi1))
(* R R)
R
(/ (* phi2 phi2) phi1)
(* phi2 phi2)
phi2
phi1
(+ R (/ (* R phi2) phi1))
(/ (* R phi2) phi1)
(* R phi2)
(/ (/ (* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1)) (+ (* R R) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2)))))) (+ R (/ (* R phi2) phi1)))
(/ (* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1)) (+ (* R R) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))
(* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1))
(- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2)))))))
(* R (* R (* R R)))
R
(* R (* R R))
(* R R)
(* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))
(/ R (/ phi1 (* R phi2)))
(/ phi1 (* R phi2))
phi1
(* R phi2)
phi2
(* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2)))))
(/ phi2 phi1)
(/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))
(/ phi1 (* R (* R phi2)))
(* R (* R phi2))
(- 0 phi1)
0
(+ (* R R) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2)))))
(+ R (/ (* R phi2) phi1))
(/ (* R phi2) phi1)
(* lambda2 (- (* 1/2 (* (* R phi2) (sin (* 1/2 phi1)))) (* R (cos (* 1/2 phi1)))))
lambda2
(- (* 1/2 (* (* R phi2) (sin (* 1/2 phi1)))) (* R (cos (* 1/2 phi1))))
(* 1/2 (* (* R phi2) (sin (* 1/2 phi1))))
1/2
(* (* R phi2) (sin (* 1/2 phi1)))
(* R phi2)
R
phi2
(sin (* 1/2 phi1))
(* 1/2 phi1)
phi1
(* R (cos (* 1/2 phi1)))
(cos (* 1/2 phi1))
Outputs
(* R (sqrt (+ (* (* (- (* (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))) (* (- phi1 phi2) (- 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)))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
R
(sqrt (+ (* (* (- (* (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))) (* (- phi1 phi2) (- phi1 phi2))))
(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)))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2))
(* (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 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 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)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(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
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
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.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin (* 1/2 phi2))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(- phi1 phi2)
(-.f64 phi1 phi2)
(- 0 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
0
#s(literal 0 binary64)
(* R lambda2)
(*.f64 R lambda2)
R
lambda2
(/ (* (* R R) (/ (* phi2 phi2) phi1)) (+ R (/ (* R phi2) phi1)))
(/.f64 (*.f64 phi2 (/.f64 R (/.f64 phi1 (*.f64 R phi2)))) (*.f64 (+.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) R))
(* (* R R) (/ (* phi2 phi2) phi1))
(*.f64 phi2 (/.f64 R (/.f64 phi1 (*.f64 R phi2))))
(* R R)
(*.f64 R R)
R
(/ (* phi2 phi2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(* phi2 phi2)
(*.f64 phi2 phi2)
phi2
phi1
(+ R (/ (* R phi2) phi1))
(*.f64 (+.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) R)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(* R phi2)
(*.f64 R phi2)
(/ (/ (* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1)) (+ (* R R) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2)))))) (+ R (/ (* R phi2) phi1)))
(neg.f64 (/.f64 (*.f64 (/.f64 phi1 (*.f64 (+.f64 (*.f64 phi2 (/.f64 phi2 (*.f64 phi1 phi1))) #s(literal 1 binary64)) (*.f64 R R))) (*.f64 R (*.f64 R (-.f64 (*.f64 R R) (/.f64 (/.f64 (/.f64 (*.f64 phi2 phi2) phi1) (*.f64 phi1 (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 phi1 phi2)))))) (*.f64 (+.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) R)))
(/ (* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1)) (+ (* R R) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (/.f64 phi1 (*.f64 (+.f64 (*.f64 phi2 (/.f64 phi2 (*.f64 phi1 phi1))) #s(literal 1 binary64)) (*.f64 R R))) (*.f64 R (*.f64 R (-.f64 (*.f64 R R) (/.f64 (/.f64 (/.f64 (*.f64 phi2 phi2) phi1) (*.f64 phi1 (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 phi1 phi2)))))))
(* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1))
(*.f64 (*.f64 R (*.f64 R (-.f64 (*.f64 R R) (/.f64 (/.f64 (/.f64 (*.f64 phi2 phi2) phi1) (*.f64 phi1 (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 phi1 phi2))))) (-.f64 #s(literal 0 binary64) phi1))
(- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2)))))))
(*.f64 R (*.f64 R (-.f64 (*.f64 R R) (/.f64 (/.f64 (/.f64 (*.f64 phi2 phi2) phi1) (*.f64 phi1 (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 phi1 phi2)))))
(* R (* R (* R R)))
(*.f64 R (*.f64 R (*.f64 R R)))
R
(* R (* R R))
(*.f64 R (*.f64 R R))
(* R R)
(*.f64 R R)
(* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))
(/.f64 (/.f64 (/.f64 (*.f64 phi2 phi2) phi1) (*.f64 phi1 (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))
(/ R (/ phi1 (* R phi2)))
(/.f64 R (/.f64 phi1 (*.f64 R phi2)))
(/ phi1 (* R phi2))
(/.f64 phi1 (*.f64 R phi2))
phi1
(* R phi2)
(*.f64 R phi2)
phi2
(* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2)))))
(/.f64 (/.f64 (*.f64 phi2 phi2) phi1) (*.f64 phi1 (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))
(/ phi2 phi1)
(/.f64 phi2 phi1)
(/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))
(/.f64 phi2 (*.f64 phi1 (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))
(/ phi1 (* R (* R phi2)))
(/.f64 phi1 (*.f64 R (*.f64 R phi2)))
(* R (* R phi2))
(*.f64 R (*.f64 R phi2))
(- 0 phi1)
(-.f64 #s(literal 0 binary64) phi1)
0
#s(literal 0 binary64)
(+ (* R R) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2)))))
(*.f64 (+.f64 (*.f64 phi2 (/.f64 phi2 (*.f64 phi1 phi1))) #s(literal 1 binary64)) (*.f64 R R))
(+ R (/ (* R phi2) phi1))
(*.f64 (+.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) R)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(* lambda2 (- (* 1/2 (* (* R phi2) (sin (* 1/2 phi1)))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (*.f64 R (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
lambda2
(- (* 1/2 (* (* R phi2) (sin (* 1/2 phi1)))) (* R (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* (* R phi2) (sin (* 1/2 phi1))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R (*.f64 #s(literal 1/2 binary64) phi2)))
1/2
#s(literal 1/2 binary64)
(* (* R phi2) (sin (* 1/2 phi1)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R phi2))
(* R phi2)
(*.f64 R phi2)
R
phi2
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
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))

localize313.0ms (1.7%)

Localize:

Found 18 expressions of interest:

NewMetricScoreProgram
accuracy100.0%
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
accuracy99.8%
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
accuracy97.5%
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
accuracy95.1%
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
accuracy91.4%
(/.f64 (*.f64 R phi2) phi1)
accuracy78.4%
(-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))))
accuracy68.5%
(/.f64 (/.f64 (*.f64 (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
accuracy37.9%
(/.f64 (*.f64 (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))
accuracy91.4%
(/.f64 (*.f64 R phi2) phi1)
accuracy90.3%
(/.f64 (*.f64 phi2 phi2) phi1)
accuracy78.5%
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
accuracy73.9%
(/.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1)) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
accuracy100.0%
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
accuracy100.0%
(*.f64 R lambda2)
accuracy99.9%
(*.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)))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
accuracy99.8%
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
accuracy99.7%
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
accuracy99.6%
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(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))
Results
192.0ms256×0valid
Compiler

Compiled 605 to 53 computations (91.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 104.0ms
ival-mult: 39.0ms (37.6% of total)
ival-div: 18.0ms (17.4% of total)
ival-cos: 12.0ms (11.6% of total)
ival-sin: 11.0ms (10.6% of total)
ival-sub: 10.0ms (9.6% of total)
compiled-spec: 7.0ms (6.8% of total)
ival-add: 4.0ms (3.9% of total)
ival-sqrt: 2.0ms (1.9% of total)
const: 1.0ms (1% of total)
backward-pass: 0.0ms (0% of total)

series167.0ms (0.9%)

Counts
21 → 720
Calls
Call 1
Inputs
#<alt (* R (sqrt (+ (* (* (- (* (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))) (* (- phi1 phi2) (- phi1 phi2)))))>
#<alt (sqrt (+ (* (* (- (* (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))) (* (- phi1 phi2) (- phi1 phi2))))>
#<alt (* (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) (- lambda1 lambda2))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- 0 (* R lambda2))>
#<alt (* R lambda2)>
#<alt (/ (* (* R R) (/ (* phi2 phi2) phi1)) (+ R (/ (* R phi2) phi1)))>
#<alt (* (* R R) (/ (* phi2 phi2) phi1))>
#<alt (* R R)>
#<alt (/ (* phi2 phi2) phi1)>
#<alt (/ (/ (* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1)) (+ (* R R) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2)))))) (+ R (/ (* R phi2) phi1)))>
#<alt (/ (* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1)) (+ (* R R) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))>
#<alt (* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1))>
#<alt (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2)))))))>
#<alt (* lambda2 (- (* 1/2 (* (* R phi2) (sin (* 1/2 phi1)))) (* R (cos (* 1/2 phi1)))))>
#<alt (- (* 1/2 (* (* R phi2) (sin (* 1/2 phi1)))) (* R (cos (* 1/2 phi1))))>
#<alt (* 1/2 (* (* R phi2) (sin (* 1/2 phi1))))>
#<alt (* (* R phi2) (sin (* 1/2 phi1)))>
#<alt (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))>
#<alt (/ (* R phi2) phi1)>
#<alt (* R (cos (* 1/2 phi1)))>
Outputs
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (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 (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 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 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 (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 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 phi2)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))>
#<alt (* (cos (* 1/2 phi1)) (- 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 (* -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 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/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 (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* R lambda2))>
#<alt (* -1 (* 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 (* R lambda2)>
#<alt (/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))>
#<alt (/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))>
#<alt (/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))>
#<alt (/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))>
#<alt (/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))>
#<alt (/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))>
#<alt (/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))>
#<alt (/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))>
#<alt (* -1 (/ (* R (pow phi2 2)) (* phi1 (- (* -1 (/ phi2 phi1)) 1))))>
#<alt (* -1 (/ (* R (pow phi2 2)) (* phi1 (- (* -1 (/ phi2 phi1)) 1))))>
#<alt (* -1 (/ (* R (pow phi2 2)) (* phi1 (- (* -1 (/ phi2 phi1)) 1))))>
#<alt (* -1 (/ (* R (pow phi2 2)) (* phi1 (- (* -1 (/ phi2 phi1)) 1))))>
#<alt (/ (* R (pow phi2 2)) phi1)>
#<alt (* (pow phi2 2) (+ (* -1 (/ (* R phi2) (pow phi1 2))) (/ R phi1)))>
#<alt (* (pow phi2 2) (+ (* phi2 (- (/ (* R phi2) (pow phi1 3)) (/ R (pow phi1 2)))) (/ R phi1)))>
#<alt (* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (* -1 (/ (* R phi2) (pow phi1 4))) (* -1 (/ R (pow phi1 3))))) (/ R (pow phi1 2)))) (/ R phi1)))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (- (+ R (/ (* R (pow phi1 2)) (pow phi2 2))) (/ (* R phi1) phi2)))>
#<alt (* phi2 (- (+ R (* -1 (/ (* R (pow phi1 3)) (pow phi2 3)))) (+ (* -1 (/ (* R (pow phi1 2)) (pow phi2 2))) (/ (* R phi1) phi2))))>
#<alt (* R phi2)>
#<alt (* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))>
#<alt (* -1 (* phi2 (+ (* -1 R) (* -1 (/ (- (/ (* R (pow phi1 2)) phi2) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ (* -1 R) (* -1 (/ (- (* -1 (/ (- (/ (* R (pow phi1 3)) phi2) (* R (pow phi1 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* R phi2)>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* R phi2) (* phi1 (- (/ (* R phi1) phi2) R)))>
#<alt (+ (* R phi2) (* phi1 (- (* phi1 (- (* -1 (/ (* R phi1) (pow phi2 2))) (* -1 (/ R phi2)))) R)))>
#<alt (/ (* R (pow phi2 2)) phi1)>
#<alt (/ (+ (* -1 (/ (* R (pow phi2 3)) phi1)) (* R (pow phi2 2))) phi1)>
#<alt (/ (- (+ (* R (pow phi2 2)) (/ (* R (pow phi2 4)) (pow phi1 2))) (/ (* R (pow phi2 3)) phi1)) phi1)>
#<alt (/ (- (+ (* -1 (/ (* R (pow phi2 5)) (pow phi1 3))) (* R (pow phi2 2))) (+ (* -1 (/ (* R (pow phi2 4)) (pow phi1 2))) (/ (* R (pow phi2 3)) phi1))) phi1)>
#<alt (/ (* R (pow phi2 2)) phi1)>
#<alt (* -1 (/ (+ (* -1 (* R (pow phi2 2))) (/ (* R (pow phi2 3)) phi1)) phi1))>
#<alt (* -1 (/ (+ (* -1 (* R (pow phi2 2))) (* -1 (/ (+ (* -1 (* R (pow phi2 3))) (/ (* R (pow phi2 4)) phi1)) phi1))) phi1))>
#<alt (* -1 (/ (+ (* -1 (* R (pow phi2 2))) (* -1 (/ (+ (* -1 (* R (pow phi2 3))) (* -1 (/ (+ (* -1 (* R (pow phi2 4))) (/ (* R (pow phi2 5)) phi1)) phi1))) phi1))) phi1))>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (pow R 2)>
#<alt (pow R 2)>
#<alt (pow R 2)>
#<alt (pow R 2)>
#<alt (pow R 2)>
#<alt (pow R 2)>
#<alt (pow R 2)>
#<alt (pow R 2)>
#<alt (pow R 2)>
#<alt (pow R 2)>
#<alt (pow R 2)>
#<alt (pow R 2)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (/ (pow phi2 2) phi1)>
#<alt (* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))>
#<alt (* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))>
#<alt (* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))>
#<alt (* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))>
#<alt (* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))>
#<alt (* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))>
#<alt (* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))>
#<alt (* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))>
#<alt (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ (pow phi2 2) (pow phi1 2))) (- (* -1 (/ phi2 phi1)) 1)))>
#<alt (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ (pow phi2 2) (pow phi1 2))) (- (* -1 (/ phi2 phi1)) 1)))>
#<alt (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ (pow phi2 2) (pow phi1 2))) (- (* -1 (/ phi2 phi1)) 1)))>
#<alt (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ (pow phi2 2) (pow phi1 2))) (- (* -1 (/ phi2 phi1)) 1)))>
#<alt (* R phi2)>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* R phi2) (* phi1 (+ (* -1 R) (* phi1 (+ (* -1 (/ R phi2)) (/ R phi2))))))>
#<alt (+ (* R phi2) (* phi1 (+ (* -1 R) (* phi1 (+ (* -1 (/ R phi2)) (+ (* phi1 (+ (* -1 (/ R (pow phi2 2))) (+ (* -1 (/ (+ (* -1 (/ R phi2)) (/ R phi2)) phi2)) (/ R (pow phi2 2))))) (/ R phi2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))>
#<alt (* phi1 (+ (* -1 R) (+ (* -1 (/ (* R (pow phi2 2)) (pow phi1 2))) (+ (/ (* R phi2) phi1) (/ (* R (pow phi2 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ (* -1 R) (+ (* -1 (/ (* R (pow phi2 2)) (pow phi1 2))) (+ (* -1 (/ (* R (pow phi2 3)) (pow phi1 3))) (+ (* -1 (/ (* phi2 (+ (* -1 (* R (pow phi2 2))) (* R (pow phi2 2)))) (pow phi1 3))) (+ (/ (* R phi2) phi1) (+ (/ (* R (pow phi2 2)) (pow phi1 2)) (/ (* R (pow phi2 3)) (pow phi1 3)))))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (- (+ (* -1 (/ (* R (pow phi2 2)) phi1)) (/ (* R (pow phi2 2)) phi1)) (* -1 (* R phi2))) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* R (pow phi2 3)) phi1)) (+ (/ (* R (pow phi2 3)) phi1) (/ (* phi2 (+ (* -1 (* R (pow phi2 2))) (* R (pow phi2 2)))) phi1))) (+ (* -1 (* R (pow phi2 2))) (* R (pow phi2 2)))) phi1)) (* -1 (* R phi2))) phi1)))))>
#<alt (* -1 (* R phi1))>
#<alt (+ (* -1 (* R phi1)) (* R phi2))>
#<alt (+ (* -1 (* R phi1)) (* phi2 (+ R (* phi2 (+ (* -1 (/ R phi1)) (/ R phi1))))))>
#<alt (+ (* -1 (* R phi1)) (* phi2 (+ R (* phi2 (+ (* -1 (/ R phi1)) (+ (* phi2 (+ (* -1 (/ R (pow phi1 2))) (+ (* -1 (/ (+ (* -1 (/ R phi1)) (/ R phi1)) phi1)) (/ R (pow phi1 2))))) (/ R phi1)))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* -1 (/ (* R (pow phi1 2)) (pow phi2 2))) (/ (* R (pow phi1 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* -1 (/ (* R (pow phi1 2)) (pow phi2 2))) (+ (* -1 (/ (* R (pow phi1 3)) (pow phi2 3))) (+ (* -1 (/ (* phi1 (+ (* -1 (* R (pow phi1 2))) (* R (pow phi1 2)))) (pow phi2 3))) (+ (/ (* R (pow phi1 2)) (pow phi2 2)) (/ (* R (pow phi1 3)) (pow phi2 3)))))))))>
#<alt (* R phi2)>
#<alt (* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))>
#<alt (* -1 (* phi2 (+ (* -1 R) (* -1 (/ (+ (* -1 (* R phi1)) (* -1 (/ (+ (* -1 (* R (pow phi1 2))) (* R (pow phi1 2))) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ (* -1 R) (* -1 (/ (+ (* -1 (* R phi1)) (* -1 (/ (+ (* -1 (* R (pow phi1 2))) (+ (* -1 (/ (+ (* -1 (* R (pow phi1 3))) (+ (* R (pow phi1 3)) (* phi1 (+ (* -1 (* R (pow phi1 2))) (* R (pow phi1 2)))))) phi2)) (* R (pow phi1 2)))) phi2))) phi2)))))>
#<alt (* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))>
#<alt (* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))>
#<alt (* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))>
#<alt (* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))>
#<alt (* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))>
#<alt (* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))>
#<alt (* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))>
#<alt (* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))>
#<alt (* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))>
#<alt (* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))>
#<alt (* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))>
#<alt (* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)>
#<alt (/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)>
#<alt (/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)>
#<alt (* -1 (* (pow R 2) phi1))>
#<alt (* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))>
#<alt (* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))>
#<alt (* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))>
#<alt (* -1 (* (pow R 2) phi1))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))>
#<alt (* -1 (* (pow R 2) phi1))>
#<alt (+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))>
#<alt (+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))>
#<alt (+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))>
#<alt (* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))>
#<alt (* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))>
#<alt (/ (* (pow R 2) (pow phi2 2)) phi1)>
#<alt (* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))>
#<alt (* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))>
#<alt (* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))>
#<alt (* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))>
#<alt (* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))>
#<alt (* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))>
#<alt (* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))>
#<alt (* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))>
#<alt (* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))>
#<alt (* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))>
#<alt (* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))>
#<alt (* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))>
#<alt (* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))>
#<alt (* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))>
#<alt (* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))>
#<alt (/ (* (pow R 4) (pow phi2 4)) (pow phi1 3))>
#<alt (/ (+ (* -1 (* (pow R 4) (pow phi1 4))) (* (pow R 4) (pow phi2 4))) (pow phi1 3))>
#<alt (/ (+ (* -1 (* (pow R 4) (pow phi1 4))) (* (pow R 4) (pow phi2 4))) (pow phi1 3))>
#<alt (/ (+ (* -1 (* (pow R 4) (pow phi1 4))) (* (pow R 4) (pow phi2 4))) (pow phi1 3))>
#<alt (* -1 (* (pow R 4) phi1))>
#<alt (* phi1 (+ (* -1 (pow R 4)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))))>
#<alt (* phi1 (+ (* -1 (pow R 4)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))))>
#<alt (* phi1 (+ (* -1 (pow R 4)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))))>
#<alt (* -1 (* (pow R 4) phi1))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))))>
#<alt (* -1 (* phi1 (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))))>
#<alt (* -1 (* (pow R 4) phi1))>
#<alt (+ (* -1 (* (pow R 4) phi1)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 3)))>
#<alt (+ (* -1 (* (pow R 4) phi1)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 3)))>
#<alt (+ (* -1 (* (pow R 4) phi1)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 3)))>
#<alt (/ (* (pow R 4) (pow phi2 4)) (pow phi1 3))>
#<alt (* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))>
#<alt (* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))>
#<alt (* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))>
#<alt (/ (* (pow R 4) (pow phi2 4)) (pow phi1 3))>
#<alt (* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))>
#<alt (* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))>
#<alt (* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))>
#<alt (* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))>
#<alt (* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))>
#<alt (* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))>
#<alt (* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))>
#<alt (* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))>
#<alt (* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))>
#<alt (* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))>
#<alt (* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))>
#<alt (* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))>
#<alt (* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))>
#<alt (* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))>
#<alt (* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))>
#<alt (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4)))>
#<alt (/ (- (* (pow R 4) (pow phi1 4)) (* (pow R 4) (pow phi2 4))) (pow phi1 4))>
#<alt (/ (- (* (pow R 4) (pow phi1 4)) (* (pow R 4) (pow phi2 4))) (pow phi1 4))>
#<alt (/ (- (* (pow R 4) (pow phi1 4)) (* (pow R 4) (pow phi2 4))) (pow phi1 4))>
#<alt (pow R 4)>
#<alt (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))>
#<alt (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))>
#<alt (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))>
#<alt (pow R 4)>
#<alt (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))>
#<alt (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))>
#<alt (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))>
#<alt (pow R 4)>
#<alt (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))>
#<alt (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))>
#<alt (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))>
#<alt (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4)))>
#<alt (* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))>
#<alt (* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))>
#<alt (* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))>
#<alt (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4)))>
#<alt (* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))>
#<alt (* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))>
#<alt (* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))>
#<alt (* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))>
#<alt (* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))>
#<alt (* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))>
#<alt (* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))>
#<alt (* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))>
#<alt (* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))>
#<alt (* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))>
#<alt (* -1 (* R (* lambda2 (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1)))))))>
#<alt (* -1 (* R (* lambda2 (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1)))))))>
#<alt (* -1 (* R (* lambda2 (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1)))))))>
#<alt (* -1 (* R (* lambda2 (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1)))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))>
#<alt (* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))>
#<alt (* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))>
#<alt (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))>
#<alt (* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))>
#<alt (* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))>
#<alt (* -1 (* R lambda2))>
#<alt (+ (* -1 (* R lambda2)) (* 1/4 (* R (* lambda2 (* phi1 phi2)))))>
#<alt (+ (* -1 (* R lambda2)) (* phi1 (+ (* 1/8 (* R (* lambda2 phi1))) (* 1/4 (* R (* lambda2 phi2))))))>
#<alt (+ (* -1 (* R lambda2)) (* phi1 (+ (* 1/4 (* R (* lambda2 phi2))) (* phi1 (+ (* -1/96 (* R (* lambda2 (* phi1 phi2)))) (* 1/8 (* R lambda2)))))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))>
#<alt (* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))>
#<alt (* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))>
#<alt (* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))>
#<alt (* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))>
#<alt (* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))>
#<alt (* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))>
#<alt (* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))>
#<alt (* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))>
#<alt (* -1 (* R (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1))))))>
#<alt (* -1 (* R (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1))))))>
#<alt (* -1 (* R (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1))))))>
#<alt (* -1 (* R (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1))))))>
#<alt (* -1 (* R (cos (* 1/2 phi1))))>
#<alt (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))>
#<alt (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))>
#<alt (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* phi2 (+ (* -1 (/ (* R (cos (* 1/2 phi1))) phi2)) (* 1/2 (* R (sin (* 1/2 phi1))))))>
#<alt (* phi2 (+ (* -1 (/ (* R (cos (* 1/2 phi1))) phi2)) (* 1/2 (* R (sin (* 1/2 phi1))))))>
#<alt (* phi2 (+ (* -1 (/ (* R (cos (* 1/2 phi1))) phi2)) (* 1/2 (* R (sin (* 1/2 phi1))))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* -1 (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (/ (* R (cos (* 1/2 phi1))) phi2))))>
#<alt (* -1 (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (/ (* R (cos (* 1/2 phi1))) phi2))))>
#<alt (* -1 (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (/ (* R (cos (* 1/2 phi1))) phi2))))>
#<alt (* -1 R)>
#<alt (- (* 1/4 (* R (* phi1 phi2))) R)>
#<alt (- (* phi1 (+ (* 1/8 (* R phi1)) (* 1/4 (* R phi2)))) R)>
#<alt (- (* phi1 (+ (* 1/4 (* R phi2)) (* phi1 (- (* -1/96 (* R (* phi1 phi2))) (* -1/8 R))))) R)>
#<alt (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))>
#<alt (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))>
#<alt (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))>
#<alt (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))>
#<alt (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))>
#<alt (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))>
#<alt (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))>
#<alt (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/4 (* R (* phi1 phi2)))>
#<alt (* phi1 (+ (* -1/96 (* R (* (pow phi1 2) phi2))) (* 1/4 (* R phi2))))>
#<alt (* phi1 (+ (* 1/4 (* R phi2)) (* (pow phi1 2) (+ (* -1/96 (* R phi2)) (* 1/7680 (* R (* (pow phi1 2) phi2)))))))>
#<alt (* phi1 (+ (* 1/4 (* R phi2)) (* (pow phi1 2) (+ (* -1/96 (* R phi2)) (* (pow phi1 2) (+ (* -1/1290240 (* R (* (pow phi1 2) phi2))) (* 1/7680 (* R phi2))))))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* 1/2 (* R (* phi1 phi2)))>
#<alt (* phi1 (+ (* -1/48 (* R (* (pow phi1 2) phi2))) (* 1/2 (* R phi2))))>
#<alt (* phi1 (+ (* 1/2 (* R phi2)) (* (pow phi1 2) (+ (* -1/48 (* R phi2)) (* 1/3840 (* R (* (pow phi1 2) phi2)))))))>
#<alt (* phi1 (+ (* 1/2 (* R phi2)) (* (pow phi1 2) (+ (* -1/48 (* R phi2)) (* (pow phi1 2) (+ (* -1/645120 (* R (* (pow phi1 2) phi2))) (* 1/3840 (* R phi2))))))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<alt (* R (* phi2 (sin (* 1/2 phi1))))>
#<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 (* 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 (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (/ (* R phi2) phi1)>
#<alt (* R (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)))>
Calls

180 calls:

TimeVariablePointExpression
31.0ms
R
@inf
(- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2)))))))
28.0ms
R
@0
(* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1))
19.0ms
phi1
@inf
(* R (sqrt (+ (* (* (- (* (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))) (* (- phi1 phi2) (- phi1 phi2)))))
8.0ms
phi2
@0
(/ (* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1)) (+ (* R R) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))
5.0ms
R
@0
(/ (/ (* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1)) (+ (* R R) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2)))))) (+ R (/ (* R phi2) phi1)))

rewrite393.0ms (2.1%)

Algorithm
batch-egg-rewrite
Rules
4072×*-lowering-*.f32
4072×*-lowering-*.f64
2660×fma-lowering-fma.f32
2660×fma-lowering-fma.f64
1880×/-lowering-/.f32
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
055366
1365216
23834212
09058212
Stop Event
iter limit
node limit
Counts
21 → 487
Calls
Call 1
Inputs
(* R (sqrt (+ (* (* (- (* (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))) (* (- phi1 phi2) (- phi1 phi2)))))
(sqrt (+ (* (* (- (* (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))) (* (- phi1 phi2) (- phi1 phi2))))
(* (- (* (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))))
(- 0 (* R lambda2))
(* R lambda2)
(/ (* (* R R) (/ (* phi2 phi2) phi1)) (+ R (/ (* R phi2) phi1)))
(* (* R R) (/ (* phi2 phi2) phi1))
(* R R)
(/ (* phi2 phi2) phi1)
(/ (/ (* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1)) (+ (* R R) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2)))))) (+ R (/ (* R phi2) phi1)))
(/ (* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1)) (+ (* R R) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))
(* (- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2))))))) (- 0 phi1))
(- (* R (* R (* R R))) (* (/ R (/ phi1 (* R phi2))) (* (/ phi2 phi1) (/ (/ phi2 phi1) (/ phi1 (* R (* R phi2)))))))
(* lambda2 (- (* 1/2 (* (* R phi2) (sin (* 1/2 phi1)))) (* R (cos (* 1/2 phi1)))))
(- (* 1/2 (* (* R phi2) (sin (* 1/2 phi1)))) (* R (cos (* 1/2 phi1))))
(* 1/2 (* (* R phi2) (sin (* 1/2 phi1))))
(* (* R phi2) (sin (* 1/2 phi1)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(/ (* R phi2) phi1)
(* R (cos (* 1/2 phi1)))
Outputs
(*.f64 R (hypot.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)) R)
(exp.f64 (*.f64 (log.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(hypot.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2))
(hypot.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)))
(hypot.f64 (-.f64 phi1 phi2) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (-.f64 phi1 phi2))
(hypot.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)))
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.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 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.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 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(pow.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.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 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.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 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2)) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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)))
(+.f64 (*.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 #s(literal 0 binary64) lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.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 lambda1 lambda2)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 lambda1 lambda2)))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 lambda1 lambda2) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 lambda1 lambda2)))
(fma.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 #s(literal 0 binary64) lambda2)))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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)))
(fma.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (*.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) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (*.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) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))) (+.f64 lambda1 lambda2)))
(/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (+.f64 lambda1 lambda2)))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.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 #s(literal 1/2 binary64) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)))) (*.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 #s(literal 1/2 binary64) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 (+.f64 lambda1 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))) (-.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 phi1 phi2))) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #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 #s(literal 1/2 binary64) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #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 #s(literal 1/2 binary64) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (+.f64 lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #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 #s(literal 1/2 binary64) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #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 #s(literal 1/2 binary64) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(-.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) phi1))))) (+.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) phi2)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.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) phi1))))) (-.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) phi2)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(fma.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #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 #s(literal 1/2 binary64) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(fma.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #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 #s(literal 1/2 binary64) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #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 #s(literal 1/2 binary64) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(/.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 #s(literal 1/2 binary64) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (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))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #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 #s(literal 1/2 binary64) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #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 #s(literal 1/2 binary64) phi1))))) (+.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) phi2)))))) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #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 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (-.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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 phi1 phi2)))))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(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) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #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 #s(literal 1/2 binary64) phi1))))) (+.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) phi2)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(+.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)) #s(literal 0 binary64))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2)))) (/.f64 (*.f64 (*.f64 R lambda2) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2)))) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2)))))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 R lambda2)) (/.f64 (*.f64 R (*.f64 lambda2 (*.f64 R lambda2))) (*.f64 R lambda2)))
(fma.f64 R (-.f64 #s(literal 0 binary64) lambda2) #s(literal 0 binary64))
(fma.f64 lambda2 (-.f64 #s(literal 0 binary64) R) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) R) lambda2 #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2))))) (/.f64 #s(literal 1 binary64) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2)))) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) lambda2) R #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2)))) (/.f64 #s(literal 1 binary64) (*.f64 R lambda2)) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 R lambda2) #s(literal 0 binary64))
(neg.f64 (*.f64 R lambda2))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2))))) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (*.f64 R lambda2))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R lambda2) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2))))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2)))) (*.f64 R lambda2))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2)))))) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2)))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2))))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)))
(/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 R (*.f64 R R)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2))))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))) (*.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2))))
(pow.f64 (/.f64 (*.f64 R (*.f64 lambda2 (*.f64 R lambda2))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2)))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (*.f64 R lambda2) (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2))))) #s(literal -1 binary64))
(*.f64 R (-.f64 #s(literal 0 binary64) lambda2))
(*.f64 lambda2 (-.f64 #s(literal 0 binary64) R))
(*.f64 (-.f64 #s(literal 0 binary64) R) lambda2)
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2))))) (/.f64 #s(literal 1 binary64) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) R)
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2)))) (/.f64 #s(literal 1 binary64) (*.f64 R lambda2)))
(*.f64 #s(literal -1 binary64) (*.f64 R lambda2))
(+.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(+.f64 (*.f64 R lambda2) #s(literal 0 binary64))
(fma.f64 R lambda2 #s(literal 0 binary64))
(fma.f64 lambda2 R #s(literal 0 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2)))) (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)))
(/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2))))) (*.f64 R (*.f64 lambda2 (*.f64 R lambda2))))
(*.f64 R lambda2)
(*.f64 lambda2 R)
(exp.f64 (*.f64 (log.f64 (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2))))) #s(literal -1 binary64)))
(neg.f64 (/.f64 (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2))) (-.f64 #s(literal 0 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2)))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(/.f64 (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2))) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))
(/.f64 (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2)))) (-.f64 #s(literal 0 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2)))) #s(literal 1 binary64)))
(/.f64 (*.f64 R (*.f64 R (*.f64 phi2 phi2))) (*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) phi1))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2))))))
(/.f64 (*.f64 (*.f64 R (*.f64 R (*.f64 phi2 phi2))) #s(literal 1 binary64)) (*.f64 phi1 (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2))))) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(/.f64 (*.f64 (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2))) #s(literal 1 binary64)) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))
(/.f64 (*.f64 (*.f64 R (*.f64 R (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))) phi1)
(pow.f64 (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2)))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 R (*.f64 R (/.f64 (/.f64 phi2 (/.f64 phi1 phi2)) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(*.f64 R (*.f64 (/.f64 R (/.f64 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(*.f64 R (/.f64 (/.f64 R (/.f64 phi1 (*.f64 phi2 phi2))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(*.f64 (*.f64 R R) (/.f64 (/.f64 phi2 (/.f64 phi1 phi2)) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(*.f64 (/.f64 phi2 (/.f64 phi1 phi2)) (*.f64 (*.f64 R R) (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(*.f64 (/.f64 phi2 (/.f64 phi1 phi2)) (/.f64 (*.f64 R R) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(*.f64 (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(*.f64 #s(literal 1 binary64) (/.f64 (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))) (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2))))
(*.f64 (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2)))) #s(literal -1 binary64)))
(*.f64 (/.f64 (/.f64 phi2 (/.f64 phi1 phi2)) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))) (*.f64 R R))
(*.f64 (/.f64 (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2))) (+.f64 (*.f64 R (*.f64 R R)) (*.f64 (/.f64 R (/.f64 phi1 phi2)) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (+.f64 (*.f64 R R) (*.f64 (/.f64 R (/.f64 phi1 phi2)) (-.f64 (/.f64 R (/.f64 phi1 phi2)) R))))
(*.f64 (/.f64 (/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 R (/.f64 R (/.f64 phi1 phi2))))
(*.f64 (pow.f64 (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (*.f64 R (*.f64 R (*.f64 phi2 phi2)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) phi1))
(/.f64 (*.f64 R R) (/.f64 phi1 (*.f64 phi2 phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R (*.f64 R (*.f64 phi2 phi2)))))
(/.f64 (*.f64 R (*.f64 R (*.f64 phi2 phi2))) phi1)
(/.f64 (neg.f64 (*.f64 R (*.f64 R (*.f64 phi2 phi2)))) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 (*.f64 (*.f64 R R) #s(literal 1 binary64)) (/.f64 phi1 (*.f64 phi2 phi2)))
(/.f64 (*.f64 (*.f64 R R) (*.f64 phi2 (-.f64 #s(literal 0 binary64) phi2))) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 (*.f64 (*.f64 phi2 (-.f64 #s(literal 0 binary64) phi2)) (*.f64 R R)) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 R R)) (/.f64 phi1 (*.f64 phi2 phi2)))
(pow.f64 (/.f64 phi1 (*.f64 R (*.f64 R (*.f64 phi2 phi2)))) #s(literal -1 binary64))
(*.f64 R (/.f64 R (/.f64 phi1 (*.f64 phi2 phi2))))
(*.f64 phi2 (*.f64 (/.f64 phi2 phi1) (*.f64 R R)))
(*.f64 (*.f64 R R) (/.f64 phi2 (/.f64 phi1 phi2)))
(*.f64 (*.f64 phi2 phi2) (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R R)))
(*.f64 (/.f64 phi2 (/.f64 phi1 phi2)) (*.f64 R R))
(*.f64 (*.f64 R (*.f64 R phi2)) (/.f64 phi2 phi1))
(*.f64 (/.f64 R (/.f64 phi1 (*.f64 phi2 phi2))) R)
(*.f64 (*.f64 R (*.f64 R (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) phi1))
(exp.f64 (*.f64 (log.f64 R) #s(literal 2 binary64)))
(pow.f64 R #s(literal 2 binary64))
(*.f64 R R)
(*.f64 (pow.f64 R #s(literal 1 binary64)) (pow.f64 R #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 phi1 (*.f64 phi2 phi2))) #s(literal -1 binary64)))
(neg.f64 (/.f64 (*.f64 phi2 phi2) (-.f64 #s(literal 0 binary64) phi1)))
(neg.f64 (/.f64 (*.f64 phi2 (-.f64 #s(literal 0 binary64) phi2)) phi1))
(/.f64 phi2 (/.f64 phi1 phi2))
(/.f64 (*.f64 phi2 phi2) phi1)
(/.f64 (*.f64 phi2 (-.f64 #s(literal 0 binary64) phi2)) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 phi2 phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 phi1 (*.f64 phi2 phi2)) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 phi1 (*.f64 phi2 phi2))))
(/.f64 (*.f64 phi2 #s(literal 1 binary64)) (/.f64 phi1 phi2))
(/.f64 (neg.f64 (*.f64 phi2 (-.f64 #s(literal 0 binary64) phi2))) (neg.f64 (-.f64 #s(literal 0 binary64) phi1)))
(/.f64 (*.f64 (*.f64 phi2 phi2) #s(literal 1 binary64)) phi1)
(pow.f64 (/.f64 phi1 (*.f64 phi2 phi2)) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 phi1 (*.f64 phi2 phi2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 phi2 (/.f64 phi2 phi1))
(*.f64 (*.f64 phi2 phi2) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (/.f64 phi2 phi1) phi2)
(*.f64 (*.f64 phi2 (-.f64 #s(literal 0 binary64) phi2)) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) phi1)))
(*.f64 #s(literal 1 binary64) (/.f64 phi2 (/.f64 phi1 phi2)))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 phi2 phi2))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)) #s(literal -1 binary64)))
(*.f64 (/.f64 (*.f64 phi2 (-.f64 #s(literal 0 binary64) phi2)) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 phi1 phi1))
(*.f64 (/.f64 (*.f64 phi2 (-.f64 #s(literal 0 binary64) phi2)) (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))) phi1)
(exp.f64 (*.f64 (log.f64 (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))) #s(literal -1 binary64)))
(neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(/.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(/.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (neg.f64 (-.f64 #s(literal 0 binary64) phi1))) (neg.f64 (*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))))
(/.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (neg.f64 (-.f64 #s(literal 0 binary64) phi1))) (*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (-.f64 #s(literal 0 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) #s(literal 1 binary64)))
(/.f64 (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (neg.f64 (-.f64 #s(literal 0 binary64) phi1))) #s(literal 1 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(/.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) #s(literal 1 binary64)) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)) (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (neg.f64 (-.f64 #s(literal 0 binary64) phi1))) (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(/.f64 (/.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))
(pow.f64 (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) #s(literal -1 binary64))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (*.f64 (/.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (/.f64 (-.f64 #s(literal 0 binary64) phi1) (*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))))
(*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (/.f64 (/.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(*.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))))
(*.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(*.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)) (/.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(*.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (/.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(*.f64 #s(literal 1 binary64) (*.f64 (/.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(*.f64 (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(*.f64 (/.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))
(*.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (+.f64 (*.f64 R (*.f64 R R)) (*.f64 (/.f64 R (/.f64 phi1 phi2)) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (+.f64 (*.f64 R R) (*.f64 (/.f64 R (/.f64 phi1 phi2)) (-.f64 (/.f64 R (/.f64 phi1 phi2)) R))))
(*.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 R (/.f64 R (/.f64 phi1 phi2))))
(*.f64 (pow.f64 (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(*.f64 (pow.f64 (/.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (neg.f64 (-.f64 #s(literal 0 binary64) phi1)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))) #s(literal -1 binary64)))
(neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))))
(/.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))
(/.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (neg.f64 (-.f64 #s(literal 0 binary64) phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)) #s(literal 1 binary64)) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (neg.f64 (-.f64 #s(literal 0 binary64) phi1)))) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (/.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (/.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (/.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(*.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(*.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (neg.f64 (-.f64 #s(literal 0 binary64) phi1))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))))
(*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(*.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)))
(*.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1))) #s(literal -1 binary64)))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(*.f64 (/.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (*.f64 (*.f64 R R) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (-.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (*.f64 R R)))))
(*.f64 (/.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))
(+.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(+.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (-.f64 #s(literal 0 binary64) phi1)))
(+.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) #s(literal 0 binary64)) (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)))
(+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (-.f64 #s(literal 0 binary64) phi1)) (*.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (-.f64 #s(literal 0 binary64) phi1)))
(fma.f64 #s(literal 0 binary64) (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)))
(fma.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (-.f64 #s(literal 0 binary64) phi1) (*.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (-.f64 #s(literal 0 binary64) phi1)))
(fma.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) #s(literal 0 binary64) (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1)))
(fma.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(fma.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (-.f64 #s(literal 0 binary64) phi1)))
(fma.f64 (-.f64 #s(literal 0 binary64) phi1) (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(fma.f64 (-.f64 #s(literal 0 binary64) phi1) (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(fma.f64 (-.f64 #s(literal 0 binary64) phi1) (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (-.f64 #s(literal 0 binary64) phi1)))
(neg.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))))
(neg.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) phi1))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (*.f64 phi1 phi1)))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))) (*.f64 (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) phi1))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (*.f64 phi1 phi1)))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))) (*.f64 (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) phi1))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))
(/.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 phi1 phi1))
(/.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))) phi1)
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))) (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (*.f64 phi1 phi1))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) phi1)
(*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (-.f64 #s(literal 0 binary64) phi1))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))
(+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(+.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))
(+.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))))
(+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (*.f64 (*.f64 R R) (*.f64 R R)))
(-.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))
(-.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (-.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(-.f64 (/.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))) (/.f64 (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))))
(-.f64 (/.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (/.f64 (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(fma.f64 R (*.f64 R (*.f64 R R)) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))
(fma.f64 R (*.f64 R (*.f64 R R)) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(fma.f64 R (*.f64 R (*.f64 R R)) (neg.f64 (-.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))))
(fma.f64 (*.f64 R R) (*.f64 R R) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))
(fma.f64 (*.f64 R R) (*.f64 R R) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(fma.f64 (*.f64 R R) (*.f64 R R) (neg.f64 (-.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))))
(fma.f64 (*.f64 R (*.f64 R R)) R (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))
(fma.f64 (*.f64 R (*.f64 R R)) R (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(fma.f64 (*.f64 R (*.f64 R R)) R (neg.f64 (-.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))))
(fma.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (/.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (/.f64 phi1 (*.f64 R (*.f64 R (-.f64 #s(literal 0 binary64) phi2))))) (*.f64 (*.f64 R R) (*.f64 R R)))
(fma.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (neg.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (*.f64 (*.f64 R R) (*.f64 R R)))
(fma.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 phi1 phi2)) (/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 phi1 (*.f64 R phi2))) (*.f64 (*.f64 R R) (*.f64 R R)))
(fma.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))
(fma.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(fma.f64 (/.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (/.f64 phi1 (*.f64 R (*.f64 R (-.f64 #s(literal 0 binary64) phi2))))) (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (*.f64 R R) (*.f64 R R)))
(fma.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))
(fma.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(fma.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))
(fma.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(fma.f64 (/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 phi1 (*.f64 R phi2))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 phi1 phi2)) (*.f64 (*.f64 R R) (*.f64 R R)))
(fma.f64 (neg.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (*.f64 (*.f64 R R) (*.f64 R R)))
(fma.f64 #s(literal -1 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (*.f64 R R) (*.f64 R R)))
(fma.f64 (*.f64 (/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 phi1 (*.f64 R phi2))) (/.f64 phi2 phi1)) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (*.f64 (*.f64 R R) (*.f64 R R)))
(fma.f64 (*.f64 (/.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 phi1 (*.f64 R phi2))) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (/.f64 phi2 phi1) (*.f64 (*.f64 R R) (*.f64 R R)))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))) (neg.f64 (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (neg.f64 (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))) (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) #s(literal 3 binary64)) (pow.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (-.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (-.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (-.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(pow.f64 (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))) (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) #s(literal -1 binary64))
(*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))
(*.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R)))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1)))))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))))
(*.f64 (-.f64 (*.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (*.f64 (*.f64 R R) (*.f64 R R))) (*.f64 (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 R R) (*.f64 R R)) (/.f64 (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)) (/.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) R) (/.f64 phi2 phi1))))))
(+.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 lambda2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) lambda2))
(+.f64 (*.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R))))
(+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) lambda2) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) lambda2))
(fma.f64 lambda2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R))))
(fma.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 lambda2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) lambda2))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) lambda2 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) lambda2))
(fma.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) lambda2 (*.f64 lambda2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) lambda2 (*.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) lambda2))
(/.f64 (*.f64 lambda2 (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 (*.f64 lambda2 (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) lambda2) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 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))))))) lambda2) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) lambda2)
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))))
(-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (/.f64 (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(-.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 R (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))))
(fma.f64 R (*.f64 (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)))
(fma.f64 R (*.f64 (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/2 binary64)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 R (*.f64 (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/2 binary64)) (neg.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R phi2)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R phi2)) (neg.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (neg.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (*.f64 R phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)))
(fma.f64 (*.f64 R phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1/2 binary64)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (*.f64 R phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1/2 binary64)) (neg.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R phi2)) #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R phi2)) #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R phi2)) #s(literal 1/2 binary64) (neg.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) R (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))))
(fma.f64 (-.f64 #s(literal 0 binary64) R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))))
(fma.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (+.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 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 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 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 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 #s(literal -1 binary64) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)))
(fma.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 R phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 R phi2) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 R phi2) (neg.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 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 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 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)))))))) (neg.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64)) (pow.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (*.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 #s(literal 0 binary64) R)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R))))
(/.f64 (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(pow.f64 (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 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)))))))) #s(literal -1 binary64))
(*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(*.f64 (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (-.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 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 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 R (*.f64 (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)))
(*.f64 (*.f64 R phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1/2 binary64)))
(*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R phi2)) #s(literal 1/2 binary64))
(*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 R phi2))
(*.f64 R (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 phi2 (*.f64 R (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R phi2))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) R)
(*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R) phi2)
(-.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(/.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64))
(exp.f64 (*.f64 (log.f64 (/.f64 phi1 (*.f64 R phi2))) #s(literal -1 binary64)))
(neg.f64 (/.f64 (*.f64 R phi2) (-.f64 #s(literal 0 binary64) phi1)))
(neg.f64 (/.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi2)) phi1))
(/.f64 R (/.f64 phi1 phi2))
(/.f64 (*.f64 R phi2) phi1)
(/.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi2)) (-.f64 #s(literal 0 binary64) phi1))
(/.f64 #s(literal 1 binary64) (/.f64 phi1 (*.f64 R phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 phi1 (*.f64 R phi2)) #s(literal 1 binary64)))
(/.f64 (/.f64 #s(literal 1 binary64) phi1) (/.f64 #s(literal 1 binary64) (*.f64 R phi2)))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 phi1 (*.f64 R phi2))))
(/.f64 (*.f64 R #s(literal 1 binary64)) (/.f64 phi1 phi2))
(/.f64 (*.f64 (*.f64 R phi2) #s(literal 1 binary64)) phi1)
(/.f64 (neg.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi2))) (neg.f64 (-.f64 #s(literal 0 binary64) phi1)))
(pow.f64 (/.f64 R (/.f64 phi1 phi2)) #s(literal 1 binary64))
(pow.f64 (/.f64 phi1 (*.f64 R phi2)) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 phi1 (*.f64 R phi2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 R (/.f64 phi2 phi1))
(*.f64 phi2 (/.f64 R phi1))
(*.f64 (*.f64 R phi2) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (/.f64 phi2 phi1) R)
(*.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi2)) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) phi1)))
(*.f64 #s(literal 1 binary64) (/.f64 R (/.f64 phi1 phi2)))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R phi2))
(*.f64 (/.f64 #s(literal 1 binary64) phi1) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi2)) #s(literal -1 binary64)))
(*.f64 (/.f64 R phi1) phi2)
(*.f64 (/.f64 R phi1) (pow.f64 (/.f64 #s(literal 1 binary64) phi2) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) phi1)) (*.f64 R (-.f64 #s(literal 0 binary64) phi2)))
(*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) phi1)) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 R (-.f64 #s(literal 0 binary64) phi2))) #s(literal -1 binary64)))
(*.f64 (/.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi2)) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 phi1 phi1))
(*.f64 (/.f64 (*.f64 R (-.f64 #s(literal 0 binary64) phi2)) (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))) phi1)
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 R phi2)) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) phi1))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 R (-.f64 #s(literal 0 binary64) phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) phi1)))
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) R)

simplify564.0ms (3%)

Algorithm
egg-herbie
Rules
7102×*-lowering-*.f32
7102×*-lowering-*.f64
3614×+-lowering-+.f64
3614×+-lowering-+.f32
1648×distribute-lft-in
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
0120516655
1438216218
0844116218
Stop Event
iter limit
node limit
Counts
720 → 720
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 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 (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 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 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 (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 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 phi2)) (- lambda1 lambda2))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(* (cos (* 1/2 phi1)) (- 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)))))
(* -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 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/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))))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* R lambda2))
(* -1 (* 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)
(* R lambda2)
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(* -1 (/ (* R (pow phi2 2)) (* phi1 (- (* -1 (/ phi2 phi1)) 1))))
(* -1 (/ (* R (pow phi2 2)) (* phi1 (- (* -1 (/ phi2 phi1)) 1))))
(* -1 (/ (* R (pow phi2 2)) (* phi1 (- (* -1 (/ phi2 phi1)) 1))))
(* -1 (/ (* R (pow phi2 2)) (* phi1 (- (* -1 (/ phi2 phi1)) 1))))
(/ (* R (pow phi2 2)) phi1)
(* (pow phi2 2) (+ (* -1 (/ (* R phi2) (pow phi1 2))) (/ R phi1)))
(* (pow phi2 2) (+ (* phi2 (- (/ (* R phi2) (pow phi1 3)) (/ R (pow phi1 2)))) (/ R phi1)))
(* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (* -1 (/ (* R phi2) (pow phi1 4))) (* -1 (/ R (pow phi1 3))))) (/ R (pow phi1 2)))) (/ R phi1)))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (- (+ R (/ (* R (pow phi1 2)) (pow phi2 2))) (/ (* R phi1) phi2)))
(* phi2 (- (+ R (* -1 (/ (* R (pow phi1 3)) (pow phi2 3)))) (+ (* -1 (/ (* R (pow phi1 2)) (pow phi2 2))) (/ (* R phi1) phi2))))
(* R phi2)
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* -1 (* phi2 (+ (* -1 R) (* -1 (/ (- (/ (* R (pow phi1 2)) phi2) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ (* -1 R) (* -1 (/ (- (* -1 (/ (- (/ (* R (pow phi1 3)) phi2) (* R (pow phi1 2))) phi2)) (* R phi1)) phi2)))))
(* R phi2)
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* R phi2) (* phi1 (- (/ (* R phi1) phi2) R)))
(+ (* R phi2) (* phi1 (- (* phi1 (- (* -1 (/ (* R phi1) (pow phi2 2))) (* -1 (/ R phi2)))) R)))
(/ (* R (pow phi2 2)) phi1)
(/ (+ (* -1 (/ (* R (pow phi2 3)) phi1)) (* R (pow phi2 2))) phi1)
(/ (- (+ (* R (pow phi2 2)) (/ (* R (pow phi2 4)) (pow phi1 2))) (/ (* R (pow phi2 3)) phi1)) phi1)
(/ (- (+ (* -1 (/ (* R (pow phi2 5)) (pow phi1 3))) (* R (pow phi2 2))) (+ (* -1 (/ (* R (pow phi2 4)) (pow phi1 2))) (/ (* R (pow phi2 3)) phi1))) phi1)
(/ (* R (pow phi2 2)) phi1)
(* -1 (/ (+ (* -1 (* R (pow phi2 2))) (/ (* R (pow phi2 3)) phi1)) phi1))
(* -1 (/ (+ (* -1 (* R (pow phi2 2))) (* -1 (/ (+ (* -1 (* R (pow phi2 3))) (/ (* R (pow phi2 4)) phi1)) phi1))) phi1))
(* -1 (/ (+ (* -1 (* R (pow phi2 2))) (* -1 (/ (+ (* -1 (* R (pow phi2 3))) (* -1 (/ (+ (* -1 (* R (pow phi2 4))) (/ (* R (pow phi2 5)) phi1)) phi1))) phi1))) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (* (pow R 2) (pow phi2 2)) phi1)
(pow R 2)
(pow R 2)
(pow R 2)
(pow R 2)
(pow R 2)
(pow R 2)
(pow R 2)
(pow R 2)
(pow R 2)
(pow R 2)
(pow R 2)
(pow R 2)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(/ (pow phi2 2) phi1)
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ (pow phi2 2) (pow phi1 2))) (- (* -1 (/ phi2 phi1)) 1)))
(/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ (pow phi2 2) (pow phi1 2))) (- (* -1 (/ phi2 phi1)) 1)))
(/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ (pow phi2 2) (pow phi1 2))) (- (* -1 (/ phi2 phi1)) 1)))
(/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ (pow phi2 2) (pow phi1 2))) (- (* -1 (/ phi2 phi1)) 1)))
(* R phi2)
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* R phi2) (* phi1 (+ (* -1 R) (* phi1 (+ (* -1 (/ R phi2)) (/ R phi2))))))
(+ (* R phi2) (* phi1 (+ (* -1 R) (* phi1 (+ (* -1 (/ R phi2)) (+ (* phi1 (+ (* -1 (/ R (pow phi2 2))) (+ (* -1 (/ (+ (* -1 (/ R phi2)) (/ R phi2)) phi2)) (/ R (pow phi2 2))))) (/ R phi2)))))))
(* -1 (* R phi1))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(* phi1 (+ (* -1 R) (+ (* -1 (/ (* R (pow phi2 2)) (pow phi1 2))) (+ (/ (* R phi2) phi1) (/ (* R (pow phi2 2)) (pow phi1 2))))))
(* phi1 (+ (* -1 R) (+ (* -1 (/ (* R (pow phi2 2)) (pow phi1 2))) (+ (* -1 (/ (* R (pow phi2 3)) (pow phi1 3))) (+ (* -1 (/ (* phi2 (+ (* -1 (* R (pow phi2 2))) (* R (pow phi2 2)))) (pow phi1 3))) (+ (/ (* R phi2) phi1) (+ (/ (* R (pow phi2 2)) (pow phi1 2)) (/ (* R (pow phi2 3)) (pow phi1 3)))))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (- (+ (* -1 (/ (* R (pow phi2 2)) phi1)) (/ (* R (pow phi2 2)) phi1)) (* -1 (* R phi2))) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* R (pow phi2 3)) phi1)) (+ (/ (* R (pow phi2 3)) phi1) (/ (* phi2 (+ (* -1 (* R (pow phi2 2))) (* R (pow phi2 2)))) phi1))) (+ (* -1 (* R (pow phi2 2))) (* R (pow phi2 2)))) phi1)) (* -1 (* R phi2))) phi1)))))
(* -1 (* R phi1))
(+ (* -1 (* R phi1)) (* R phi2))
(+ (* -1 (* R phi1)) (* phi2 (+ R (* phi2 (+ (* -1 (/ R phi1)) (/ R phi1))))))
(+ (* -1 (* R phi1)) (* phi2 (+ R (* phi2 (+ (* -1 (/ R phi1)) (+ (* phi2 (+ (* -1 (/ R (pow phi1 2))) (+ (* -1 (/ (+ (* -1 (/ R phi1)) (/ R phi1)) phi1)) (/ R (pow phi1 2))))) (/ R phi1)))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* -1 (/ (* R (pow phi1 2)) (pow phi2 2))) (/ (* R (pow phi1 2)) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* -1 (/ (* R (pow phi1 2)) (pow phi2 2))) (+ (* -1 (/ (* R (pow phi1 3)) (pow phi2 3))) (+ (* -1 (/ (* phi1 (+ (* -1 (* R (pow phi1 2))) (* R (pow phi1 2)))) (pow phi2 3))) (+ (/ (* R (pow phi1 2)) (pow phi2 2)) (/ (* R (pow phi1 3)) (pow phi2 3)))))))))
(* R phi2)
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(* -1 (* phi2 (+ (* -1 R) (* -1 (/ (+ (* -1 (* R phi1)) (* -1 (/ (+ (* -1 (* R (pow phi1 2))) (* R (pow phi1 2))) phi2))) phi2)))))
(* -1 (* phi2 (+ (* -1 R) (* -1 (/ (+ (* -1 (* R phi1)) (* -1 (/ (+ (* -1 (* R (pow phi1 2))) (+ (* -1 (/ (+ (* -1 (* R (pow phi1 3))) (+ (* R (pow phi1 3)) (* phi1 (+ (* -1 (* R (pow phi1 2))) (* R (pow phi1 2)))))) phi2)) (* R (pow phi1 2)))) phi2))) phi2)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)
(/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)
(/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)
(* -1 (* (pow R 2) phi1))
(* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))
(* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))
(* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))
(* -1 (* (pow R 2) phi1))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))
(* -1 (* (pow R 2) phi1))
(+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))
(+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))
(+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(/ (* (pow R 4) (pow phi2 4)) (pow phi1 3))
(/ (+ (* -1 (* (pow R 4) (pow phi1 4))) (* (pow R 4) (pow phi2 4))) (pow phi1 3))
(/ (+ (* -1 (* (pow R 4) (pow phi1 4))) (* (pow R 4) (pow phi2 4))) (pow phi1 3))
(/ (+ (* -1 (* (pow R 4) (pow phi1 4))) (* (pow R 4) (pow phi2 4))) (pow phi1 3))
(* -1 (* (pow R 4) phi1))
(* phi1 (+ (* -1 (pow R 4)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))))
(* phi1 (+ (* -1 (pow R 4)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))))
(* phi1 (+ (* -1 (pow R 4)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))))
(* -1 (* (pow R 4) phi1))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))))
(* -1 (* (pow R 4) phi1))
(+ (* -1 (* (pow R 4) phi1)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 3)))
(+ (* -1 (* (pow R 4) phi1)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 3)))
(+ (* -1 (* (pow R 4) phi1)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 3)))
(/ (* (pow R 4) (pow phi2 4)) (pow phi1 3))
(* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))
(* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))
(* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))
(/ (* (pow R 4) (pow phi2 4)) (pow phi1 3))
(* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))
(* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))
(* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4)))
(/ (- (* (pow R 4) (pow phi1 4)) (* (pow R 4) (pow phi2 4))) (pow phi1 4))
(/ (- (* (pow R 4) (pow phi1 4)) (* (pow R 4) (pow phi2 4))) (pow phi1 4))
(/ (- (* (pow R 4) (pow phi1 4)) (* (pow R 4) (pow phi2 4))) (pow phi1 4))
(pow R 4)
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(pow R 4)
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(pow R 4)
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4)))
(* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))
(* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))
(* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))
(* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4)))
(* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))
(* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))
(* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(* -1 (* R (* lambda2 (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1)))))))
(* -1 (* R (* lambda2 (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1)))))))
(* -1 (* R (* lambda2 (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1)))))))
(* -1 (* R (* lambda2 (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1)))))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))
(* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))
(* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))
(* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))
(* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))
(* -1 (* R lambda2))
(+ (* -1 (* R lambda2)) (* 1/4 (* R (* lambda2 (* phi1 phi2)))))
(+ (* -1 (* R lambda2)) (* phi1 (+ (* 1/8 (* R (* lambda2 phi1))) (* 1/4 (* R (* lambda2 phi2))))))
(+ (* -1 (* R lambda2)) (* phi1 (+ (* 1/4 (* R (* lambda2 phi2))) (* phi1 (+ (* -1/96 (* R (* lambda2 (* phi1 phi2)))) (* 1/8 (* R lambda2)))))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(* -1 (* R (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1))))))
(* -1 (* R (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1))))))
(* -1 (* R (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1))))))
(* -1 (* R (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1))))))
(* -1 (* R (cos (* 1/2 phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* phi2 (+ (* -1 (/ (* R (cos (* 1/2 phi1))) phi2)) (* 1/2 (* R (sin (* 1/2 phi1))))))
(* phi2 (+ (* -1 (/ (* R (cos (* 1/2 phi1))) phi2)) (* 1/2 (* R (sin (* 1/2 phi1))))))
(* phi2 (+ (* -1 (/ (* R (cos (* 1/2 phi1))) phi2)) (* 1/2 (* R (sin (* 1/2 phi1))))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* -1 (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (/ (* R (cos (* 1/2 phi1))) phi2))))
(* -1 (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (/ (* R (cos (* 1/2 phi1))) phi2))))
(* -1 (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (/ (* R (cos (* 1/2 phi1))) phi2))))
(* -1 R)
(- (* 1/4 (* R (* phi1 phi2))) R)
(- (* phi1 (+ (* 1/8 (* R phi1)) (* 1/4 (* R phi2)))) R)
(- (* phi1 (+ (* 1/4 (* R phi2)) (* phi1 (- (* -1/96 (* R (* phi1 phi2))) (* -1/8 R))))) R)
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/4 (* R (* phi1 phi2)))
(* phi1 (+ (* -1/96 (* R (* (pow phi1 2) phi2))) (* 1/4 (* R phi2))))
(* phi1 (+ (* 1/4 (* R phi2)) (* (pow phi1 2) (+ (* -1/96 (* R phi2)) (* 1/7680 (* R (* (pow phi1 2) phi2)))))))
(* phi1 (+ (* 1/4 (* R phi2)) (* (pow phi1 2) (+ (* -1/96 (* R phi2)) (* (pow phi1 2) (+ (* -1/1290240 (* R (* (pow phi1 2) phi2))) (* 1/7680 (* R phi2))))))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* 1/2 (* R (* phi1 phi2)))
(* phi1 (+ (* -1/48 (* R (* (pow phi1 2) phi2))) (* 1/2 (* R phi2))))
(* phi1 (+ (* 1/2 (* R phi2)) (* (pow phi1 2) (+ (* -1/48 (* R phi2)) (* 1/3840 (* R (* (pow phi1 2) phi2)))))))
(* phi1 (+ (* 1/2 (* R phi2)) (* (pow phi1 2) (+ (* -1/48 (* R phi2)) (* (pow phi1 2) (+ (* -1/645120 (* R (* (pow phi1 2) phi2))) (* 1/3840 (* R phi2))))))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(* 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)))
(* 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)))
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(/ (* R phi2) phi1)
(* R (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)))
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 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 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 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) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) (*.f64 (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 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 (*.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 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (*.f64 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 (*.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 phi1) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))) (*.f64 (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))) #s(literal -1/2 binary64))))) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (- 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 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (*.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))))))
(* -1 (* R phi1))
(*.f64 phi1 (-.f64 #s(literal 0 binary64) R))
(* -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 (- 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 (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 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi2) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 phi2 (*.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 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))) (*.f64 (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 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))))
(+ (* 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 #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 R (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))) (*.f64 phi2 (*.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 R phi2) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (*.f64 R (*.f64 (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 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (*.f64 phi2 phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 2)))))))
(*.f64 phi2 (+.f64 R (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 R (*.f64 (*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (*.f64 phi2 (*.f64 phi2 phi2))) (/.f64 (*.f64 (*.f64 R (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (/.f64 (*.f64 R phi1) phi2))))
(* -1 (* R phi2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (-.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 phi1 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) phi2))) phi2)) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* R (sqrt (+ (* (pow 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 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 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 (*.f64 (*.f64 R lambda1) (*.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.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 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (*.f64 lambda1 lambda1))))) (/.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)))
(* -1 (* R (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))))
(*.f64 (neg.f64 (*.f64 R lambda1)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (+.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) lambda1)) (* R (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))))
(*.f64 (-.f64 (*.f64 R (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (/.f64 (*.f64 (*.f64 R lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) lambda1)) lambda1)) (neg.f64 lambda1))
(* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 (*.f64 R lambda1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))))
(+.f64 (*.f64 R (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 R (*.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/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 (- (* (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 (-.f64 #s(literal 0 binary64) (*.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 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 #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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 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) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.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 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))) (*.f64 (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))) #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) phi2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (- 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 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) phi1)) phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (/ (* phi2 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) phi1))) phi1))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) phi1))) phi1)) phi1)))
(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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi2 (*.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 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.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 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (*.f64 phi2 (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (*.f64 #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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (+.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (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))))))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi2 2))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (*.f64 phi2 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (- lambda1 lambda2) 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow phi2 2)))))))
(*.f64 phi2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.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 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)) (-.f64 #s(literal 0 binary64) 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 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) phi2))) phi2)) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))
(sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))
(-.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (/ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))) (*.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 lambda1 (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64))) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)))))))) (*.f64 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 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) #s(literal 3 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda1 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda2 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda2 (-.f64 (-.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda2 (-.f64 (-.f64 (+.f64 (+.f64 (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (/.f64 (*.f64 lambda1 (*.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 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 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (- lambda1 lambda2) (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal 1/48 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(* (- 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 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda1))))
(*.f64 (-.f64 (/.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 lambda1))
(* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))
(*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))))) (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* lambda2 (+ (* -1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)))
(*.f64 lambda2 (-.f64 (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* -1 (* lambda2 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (- (+ (* -1 (/ (* lambda1 (- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))) lambda2)) (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2)))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))))
(*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (-.f64 #s(literal 0 binary64) lambda2))
(cos (* 1/2 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))))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* (cos (* 1/2 phi1)) (cos (* 1/2 phi2))) (* (sin (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.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)
(* R lambda2)
(*.f64 R lambda2)
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(/ (* R (pow phi2 2)) (* phi1 (+ 1 (/ phi2 phi1))))
(/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* -1 (/ (* R (pow phi2 2)) (* phi1 (- (* -1 (/ phi2 phi1)) 1))))
(/.f64 (/.f64 (*.f64 R (*.f64 phi2 phi2)) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)))
(* -1 (/ (* R (pow phi2 2)) (* phi1 (- (* -1 (/ phi2 phi1)) 1))))
(/.f64 (/.f64 (*.f64 R (*.f64 phi2 phi2)) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)))
(* -1 (/ (* R (pow phi2 2)) (* phi1 (- (* -1 (/ phi2 phi1)) 1))))
(/.f64 (/.f64 (*.f64 R (*.f64 phi2 phi2)) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)))
(* -1 (/ (* R (pow phi2 2)) (* phi1 (- (* -1 (/ phi2 phi1)) 1))))
(/.f64 (/.f64 (*.f64 R (*.f64 phi2 phi2)) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)))
(/ (* R (pow phi2 2)) phi1)
(/.f64 (*.f64 R (*.f64 phi2 phi2)) phi1)
(* (pow phi2 2) (+ (* -1 (/ (* R phi2) (pow phi1 2))) (/ R phi1)))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 R phi1) (/.f64 (*.f64 R phi2) (*.f64 phi1 phi1))))
(* (pow phi2 2) (+ (* phi2 (- (/ (* R phi2) (pow phi1 3)) (/ R (pow phi1 2)))) (/ R phi1)))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 R phi1) (*.f64 phi2 (-.f64 (/.f64 (*.f64 R phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 R (*.f64 phi1 phi1))))))
(* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (* -1 (/ (* R phi2) (pow phi1 4))) (* -1 (/ R (pow phi1 3))))) (/ R (pow phi1 2)))) (/ R phi1)))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 R phi1) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi2 (pow.f64 phi1 #s(literal 4 binary64))))) (/.f64 R (*.f64 phi1 (*.f64 phi1 phi1))))) (/.f64 R (*.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 (/ (* R (pow phi1 2)) (pow phi2 2))) (/ (* R phi1) phi2)))
(*.f64 phi2 (+.f64 R (-.f64 (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 phi2 phi2)) (/.f64 (*.f64 R phi1) phi2))))
(* phi2 (- (+ R (* -1 (/ (* R (pow phi1 3)) (pow phi2 3)))) (+ (* -1 (/ (* R (pow phi1 2)) (pow phi2 2))) (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 (-.f64 R (*.f64 R (*.f64 (/.f64 phi1 (*.f64 phi2 phi2)) (/.f64 (*.f64 phi1 phi1) phi2)))) (-.f64 (/.f64 (*.f64 R phi1) phi2) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 phi2 phi2)))))
(* R phi2)
(*.f64 R phi2)
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* -1 (* phi2 (+ (* -1 R) (* -1 (/ (- (/ (* R (pow phi1 2)) phi2) (* R phi1)) phi2)))))
(*.f64 (-.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 (-.f64 (/.f64 (*.f64 R (*.f64 phi1 phi1)) phi2) (*.f64 R phi1)) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (* phi2 (+ (* -1 R) (* -1 (/ (- (* -1 (/ (- (/ (* R (pow phi1 3)) phi2) (* R (pow phi1 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (-.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 (-.f64 (/.f64 (-.f64 (/.f64 (*.f64 R (*.f64 phi1 (*.f64 phi1 phi1))) phi2) (*.f64 R (*.f64 phi1 phi1))) (-.f64 #s(literal 0 binary64) phi2)) (*.f64 R phi1)) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* R phi2)
(*.f64 R phi2)
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* R phi2) (* phi1 (- (/ (* R phi1) phi2) R)))
(+.f64 (*.f64 R phi2) (*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi1) phi2) R)))
(+ (* R phi2) (* phi1 (- (* phi1 (- (* -1 (/ (* R phi1) (pow phi2 2))) (* -1 (/ R phi2)))) R)))
(+.f64 (*.f64 R phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi1 (*.f64 phi2 phi2)))) (/.f64 R phi2))) R)))
(/ (* R (pow phi2 2)) phi1)
(/.f64 (*.f64 R (*.f64 phi2 phi2)) phi1)
(/ (+ (* -1 (/ (* R (pow phi2 3)) phi1)) (* R (pow phi2 2))) phi1)
(/.f64 (-.f64 (*.f64 R (*.f64 phi2 phi2)) (/.f64 (*.f64 R (*.f64 phi2 (*.f64 phi2 phi2))) phi1)) phi1)
(/ (- (+ (* R (pow phi2 2)) (/ (* R (pow phi2 4)) (pow phi1 2))) (/ (* R (pow phi2 3)) phi1)) phi1)
(/.f64 (+.f64 (*.f64 R (*.f64 phi2 phi2)) (-.f64 (/.f64 (*.f64 R (pow.f64 phi2 #s(literal 4 binary64))) (*.f64 phi1 phi1)) (/.f64 (*.f64 R (*.f64 phi2 (*.f64 phi2 phi2))) phi1))) phi1)
(/ (- (+ (* -1 (/ (* R (pow phi2 5)) (pow phi1 3))) (* R (pow phi2 2))) (+ (* -1 (/ (* R (pow phi2 4)) (pow phi1 2))) (/ (* R (pow phi2 3)) phi1))) phi1)
(/.f64 (-.f64 (-.f64 (*.f64 R (*.f64 phi2 phi2)) (/.f64 (*.f64 R (pow.f64 phi2 #s(literal 5 binary64))) (*.f64 phi1 (*.f64 phi1 phi1)))) (-.f64 (/.f64 (*.f64 R (*.f64 phi2 (*.f64 phi2 phi2))) phi1) (/.f64 (*.f64 R (pow.f64 phi2 #s(literal 4 binary64))) (*.f64 phi1 phi1)))) phi1)
(/ (* R (pow phi2 2)) phi1)
(/.f64 (*.f64 R (*.f64 phi2 phi2)) phi1)
(* -1 (/ (+ (* -1 (* R (pow phi2 2))) (/ (* R (pow phi2 3)) phi1)) phi1))
(/.f64 (-.f64 (/.f64 (*.f64 R (*.f64 phi2 (*.f64 phi2 phi2))) phi1) (*.f64 R (*.f64 phi2 phi2))) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (/ (+ (* -1 (* R (pow phi2 2))) (* -1 (/ (+ (* -1 (* R (pow phi2 3))) (/ (* R (pow phi2 4)) phi1)) phi1))) phi1))
(/.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (-.f64 #s(literal 0 binary64) R)) (/.f64 (-.f64 (/.f64 (*.f64 R (pow.f64 phi2 #s(literal 4 binary64))) phi1) (*.f64 R (*.f64 phi2 (*.f64 phi2 phi2)))) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (/ (+ (* -1 (* R (pow phi2 2))) (* -1 (/ (+ (* -1 (* R (pow phi2 3))) (* -1 (/ (+ (* -1 (* R (pow phi2 4))) (/ (* R (pow phi2 5)) phi1)) phi1))) phi1))) phi1))
(/.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (-.f64 #s(literal 0 binary64) R)) (/.f64 (-.f64 (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (-.f64 #s(literal 0 binary64) R)) (/.f64 (-.f64 (/.f64 (*.f64 R (pow.f64 phi2 #s(literal 5 binary64))) phi1) (*.f64 R (pow.f64 phi2 #s(literal 4 binary64)))) phi1)) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(pow R 2)
(*.f64 R R)
(pow R 2)
(*.f64 R R)
(pow R 2)
(*.f64 R R)
(pow R 2)
(*.f64 R R)
(pow R 2)
(*.f64 R R)
(pow R 2)
(*.f64 R R)
(pow R 2)
(*.f64 R R)
(pow R 2)
(*.f64 R R)
(pow R 2)
(*.f64 R R)
(pow R 2)
(*.f64 R R)
(pow R 2)
(*.f64 R R)
(pow R 2)
(*.f64 R R)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(/ (pow phi2 2) phi1)
(/.f64 (*.f64 phi2 phi2) phi1)
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(/.f64 (neg.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(/.f64 (neg.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(/.f64 (neg.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(/.f64 (neg.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(/.f64 (neg.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(/.f64 (neg.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(/.f64 (neg.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ phi2 phi1)) (+ 1 (/ (pow phi2 2) (pow phi1 2))))))
(/.f64 (neg.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ (pow phi2 2) (pow phi1 2))) (- (* -1 (/ phi2 phi1)) 1)))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ (pow phi2 2) (pow phi1 2))) (- (* -1 (/ phi2 phi1)) 1)))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ (pow phi2 2) (pow phi1 2))) (- (* -1 (/ phi2 phi1)) 1)))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(/ (* R (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (* (+ 1 (/ (pow phi2 2) (pow phi1 2))) (- (* -1 (/ phi2 phi1)) 1)))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* R phi2)
(*.f64 R phi2)
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* R phi2) (* phi1 (+ (* -1 R) (* phi1 (+ (* -1 (/ R phi2)) (/ R phi2))))))
(+.f64 (*.f64 R phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 #s(literal 0 binary64)) R)))
(+ (* R phi2) (* phi1 (+ (* -1 R) (* phi1 (+ (* -1 (/ R phi2)) (+ (* phi1 (+ (* -1 (/ R (pow phi2 2))) (+ (* -1 (/ (+ (* -1 (/ R phi2)) (/ R phi2)) phi2)) (/ R (pow phi2 2))))) (/ R phi2)))))))
(+.f64 (*.f64 R phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (-.f64 (+.f64 (/.f64 R phi2) (*.f64 phi1 (-.f64 (+.f64 (/.f64 R (*.f64 phi2 phi2)) (/.f64 #s(literal 0 binary64) phi2)) (/.f64 R (*.f64 phi2 phi2))))) (/.f64 R phi2))) R)))
(* -1 (* R phi1))
(*.f64 phi1 (-.f64 #s(literal 0 binary64) R))
(* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(* phi1 (+ (* -1 R) (+ (* -1 (/ (* R (pow phi2 2)) (pow phi1 2))) (+ (/ (* R phi2) phi1) (/ (* R (pow phi2 2)) (pow phi1 2))))))
(*.f64 phi1 (-.f64 (-.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 phi1))) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 phi1))) R))
(* phi1 (+ (* -1 R) (+ (* -1 (/ (* R (pow phi2 2)) (pow phi1 2))) (+ (* -1 (/ (* R (pow phi2 3)) (pow phi1 3))) (+ (* -1 (/ (* phi2 (+ (* -1 (* R (pow phi2 2))) (* R (pow phi2 2)))) (pow phi1 3))) (+ (/ (* R phi2) phi1) (+ (/ (* R (pow phi2 2)) (pow phi1 2)) (/ (* R (pow phi2 3)) (pow phi1 3)))))))))
(*.f64 phi1 (-.f64 (-.f64 (-.f64 (-.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 phi1)) (/.f64 (*.f64 R (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 phi1 (*.f64 phi1 phi1))))) (/.f64 (*.f64 phi2 #s(literal 0 binary64)) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 (*.f64 R (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 phi1))) R))
(* -1 (* R phi1))
(*.f64 phi1 (-.f64 #s(literal 0 binary64) R))
(* -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 (/ (* R (pow phi2 2)) phi1)) (/ (* R (pow phi2 2)) phi1)) (* -1 (* R phi2))) phi1)))))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (-.f64 #s(literal 0 binary64) phi1))
(* -1 (* phi1 (+ R (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* R (pow phi2 3)) phi1)) (+ (/ (* R (pow phi2 3)) phi1) (/ (* phi2 (+ (* -1 (* R (pow phi2 2))) (* R (pow phi2 2)))) phi1))) (+ (* -1 (* R (pow phi2 2))) (* R (pow phi2 2)))) phi1)) (* -1 (* R phi2))) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (+.f64 (-.f64 (+.f64 (/.f64 (*.f64 R (*.f64 phi2 (*.f64 phi2 phi2))) phi1) (/.f64 (*.f64 phi2 #s(literal 0 binary64)) phi1)) (/.f64 (*.f64 R (*.f64 phi2 (*.f64 phi2 phi2))) phi1)) #s(literal 0 binary64)) phi1)) (*.f64 R phi2)) phi1)))
(* -1 (* R phi1))
(*.f64 phi1 (-.f64 #s(literal 0 binary64) R))
(+ (* -1 (* R phi1)) (* R phi2))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* phi2 (+ R (* phi2 (+ (* -1 (/ R phi1)) (/ R phi1))))))
(-.f64 (*.f64 phi2 (+.f64 R (*.f64 phi2 #s(literal 0 binary64)))) (*.f64 R phi1))
(+ (* -1 (* R phi1)) (* phi2 (+ R (* phi2 (+ (* -1 (/ R phi1)) (+ (* phi2 (+ (* -1 (/ R (pow phi1 2))) (+ (* -1 (/ (+ (* -1 (/ R phi1)) (/ R phi1)) phi1)) (/ R (pow phi1 2))))) (/ R phi1)))))))
(-.f64 (*.f64 phi2 (+.f64 R (*.f64 phi2 (-.f64 (+.f64 (/.f64 R phi1) (*.f64 phi2 (-.f64 (+.f64 (/.f64 R (*.f64 phi1 phi1)) (/.f64 #s(literal 0 binary64) phi1)) (/.f64 R (*.f64 phi1 phi1))))) (/.f64 R phi1))))) (*.f64 R phi1))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* -1 (/ (* R (pow phi1 2)) (pow phi2 2))) (/ (* R (pow phi1 2)) (pow phi2 2))))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* -1 (/ (* R (pow phi1 2)) (pow phi2 2))) (+ (* -1 (/ (* R (pow phi1 3)) (pow phi2 3))) (+ (* -1 (/ (* phi1 (+ (* -1 (* R (pow phi1 2))) (* R (pow phi1 2)))) (pow phi2 3))) (+ (/ (* R (pow phi1 2)) (pow phi2 2)) (/ (* R (pow phi1 3)) (pow phi2 3)))))))))
(*.f64 phi2 (+.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) (-.f64 (-.f64 (-.f64 (+.f64 (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 phi2 phi2)) (*.f64 R (*.f64 (/.f64 phi1 (*.f64 phi2 phi2)) (/.f64 (*.f64 phi1 phi1) phi2)))) (/.f64 (*.f64 phi1 #s(literal 0 binary64)) (*.f64 phi2 (*.f64 phi2 phi2)))) (*.f64 R (*.f64 (/.f64 phi1 (*.f64 phi2 phi2)) (/.f64 (*.f64 phi1 phi1) phi2)))) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 phi2 phi2)))))
(* R phi2)
(*.f64 R phi2)
(* -1 (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* -1 (* phi2 (+ (* -1 R) (* -1 (/ (+ (* -1 (* R phi1)) (* -1 (/ (+ (* -1 (* R (pow phi1 2))) (* R (pow phi1 2))) phi2))) phi2)))))
(*.f64 (-.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 (-.f64 (/.f64 #s(literal 0 binary64) phi2) (*.f64 R phi1)) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (* phi2 (+ (* -1 R) (* -1 (/ (+ (* -1 (* R phi1)) (* -1 (/ (+ (* -1 (* R (pow phi1 2))) (+ (* -1 (/ (+ (* -1 (* R (pow phi1 3))) (+ (* R (pow phi1 3)) (* phi1 (+ (* -1 (* R (pow phi1 2))) (* R (pow phi1 2)))))) phi2)) (* R (pow phi1 2)))) phi2))) phi2)))))
(*.f64 (-.f64 (-.f64 #s(literal 0 binary64) R) (/.f64 (-.f64 (/.f64 (-.f64 (-.f64 (*.f64 R (*.f64 phi1 phi1)) (/.f64 (-.f64 (+.f64 (*.f64 R (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 phi1 #s(literal 0 binary64))) (*.f64 R (*.f64 phi1 (*.f64 phi1 phi1)))) phi2)) (*.f64 R (*.f64 phi1 phi1))) (-.f64 #s(literal 0 binary64) phi2)) (*.f64 R phi1)) phi2)) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (/ (* (pow R 2) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))) (+ 1 (/ (pow phi2 2) (pow phi1 2)))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)
(/.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 R R)) (*.f64 (*.f64 R phi1) (*.f64 R phi1))) phi1)
(/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)
(/.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 R R)) (*.f64 (*.f64 R phi1) (*.f64 R phi1))) phi1)
(/ (+ (* -1 (* (pow R 2) (pow phi1 2))) (* (pow R 2) (pow phi2 2))) phi1)
(/.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 R R)) (*.f64 (*.f64 R phi1) (*.f64 R phi1))) phi1)
(* -1 (* (pow R 2) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 R R)))
(* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))
(*.f64 phi1 (-.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R)))
(* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))
(*.f64 phi1 (-.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R)))
(* phi1 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))))
(*.f64 phi1 (-.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 R R)))
(* -1 (* (pow R 2) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 R R)))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 2) (pow phi2 2)) (pow phi1 2))) (pow R 2))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* -1 (* (pow R 2) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 R R)))
(+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))
(-.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 phi1 (*.f64 R R)))
(+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))
(-.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 phi1 (*.f64 R R)))
(+ (* -1 (* (pow R 2) phi1)) (/ (* (pow R 2) (pow phi2 2)) phi1))
(-.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 phi1 (*.f64 R R)))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi1 (*.f64 R R)) (*.f64 phi2 phi2))))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi1 (*.f64 R R)) (*.f64 phi2 phi2))))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi1 (*.f64 R R)) (*.f64 phi2 phi2))))
(/ (* (pow R 2) (pow phi2 2)) phi1)
(*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi1 (*.f64 R R)) (*.f64 phi2 phi2))))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi1 (*.f64 R R)) (*.f64 phi2 phi2))))
(* (pow phi2 2) (+ (* -1 (/ (* (pow R 2) phi1) (pow phi2 2))) (/ (pow R 2) phi1)))
(*.f64 (*.f64 phi2 phi2) (-.f64 (/.f64 (*.f64 R R) phi1) (/.f64 (*.f64 phi1 (*.f64 R R)) (*.f64 phi2 phi2))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (* (pow R 4) (* phi1 (- 1 (/ (pow phi2 4) (pow phi1 4))))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(/ (* (pow R 4) (pow phi2 4)) (pow phi1 3))
(/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (*.f64 phi1 (*.f64 phi1 phi1)))
(/ (+ (* -1 (* (pow R 4) (pow phi1 4))) (* (pow R 4) (pow phi2 4))) (pow phi1 3))
(/.f64 (-.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (*.f64 (pow.f64 phi1 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64)))) (*.f64 phi1 (*.f64 phi1 phi1)))
(/ (+ (* -1 (* (pow R 4) (pow phi1 4))) (* (pow R 4) (pow phi2 4))) (pow phi1 3))
(/.f64 (-.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (*.f64 (pow.f64 phi1 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64)))) (*.f64 phi1 (*.f64 phi1 phi1)))
(/ (+ (* -1 (* (pow R 4) (pow phi1 4))) (* (pow R 4) (pow phi2 4))) (pow phi1 3))
(/.f64 (-.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (*.f64 (pow.f64 phi1 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64)))) (*.f64 phi1 (*.f64 phi1 phi1)))
(* -1 (* (pow R 4) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64))))
(* phi1 (+ (* -1 (pow R 4)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 R #s(literal 4 binary64))))
(* phi1 (+ (* -1 (pow R 4)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 R #s(literal 4 binary64))))
(* phi1 (+ (* -1 (pow R 4)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64))) (pow.f64 R #s(literal 4 binary64))))
(* -1 (* (pow R 4) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64))))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (pow.f64 R #s(literal 4 binary64)) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (pow.f64 R #s(literal 4 binary64)) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (* phi1 (+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (pow.f64 R #s(literal 4 binary64)) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (* (pow R 4) phi1))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64))))
(+ (* -1 (* (pow R 4) phi1)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 3)))
(-.f64 (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64))))
(+ (* -1 (* (pow R 4) phi1)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 3)))
(-.f64 (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64))))
(+ (* -1 (* (pow R 4) phi1)) (/ (* (pow R 4) (pow phi2 4)) (pow phi1 3)))
(-.f64 (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 phi1 (pow.f64 R #s(literal 4 binary64))))
(/ (* (pow R 4) (pow phi2 4)) (pow phi1 3))
(/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (*.f64 phi1 (*.f64 phi1 phi1)))
(* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))
(*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 R #s(literal 4 binary64)) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 (*.f64 phi1 (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi2 #s(literal 4 binary64)))))
(* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))
(*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 R #s(literal 4 binary64)) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 (*.f64 phi1 (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi2 #s(literal 4 binary64)))))
(* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))
(*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 R #s(literal 4 binary64)) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 (*.f64 phi1 (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi2 #s(literal 4 binary64)))))
(/ (* (pow R 4) (pow phi2 4)) (pow phi1 3))
(/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (*.f64 phi1 (*.f64 phi1 phi1)))
(* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))
(*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 R #s(literal 4 binary64)) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 (*.f64 phi1 (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi2 #s(literal 4 binary64)))))
(* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))
(*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 R #s(literal 4 binary64)) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 (*.f64 phi1 (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi2 #s(literal 4 binary64)))))
(* (pow phi2 4) (+ (* -1 (/ (* (pow R 4) phi1) (pow phi2 4))) (/ (pow R 4) (pow phi1 3))))
(*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 R #s(literal 4 binary64)) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 (*.f64 phi1 (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi2 #s(literal 4 binary64)))))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 R #s(literal 4 binary64)))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 R #s(literal 4 binary64)))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 R #s(literal 4 binary64)))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 R #s(literal 4 binary64)))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 R #s(literal 4 binary64)))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 R #s(literal 4 binary64)))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 R #s(literal 4 binary64)))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 R #s(literal 4 binary64)))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 R #s(literal 4 binary64)))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 R #s(literal 4 binary64)))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 R #s(literal 4 binary64)))
(* (pow R 4) (- 1 (/ (pow phi2 4) (pow phi1 4))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 R #s(literal 4 binary64)))
(* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4)))
(/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 0 binary64) (pow.f64 R #s(literal 4 binary64)))) (pow.f64 phi1 #s(literal 4 binary64)))
(/ (- (* (pow R 4) (pow phi1 4)) (* (pow R 4) (pow phi2 4))) (pow phi1 4))
(/.f64 (*.f64 (pow.f64 R #s(literal 4 binary64)) (-.f64 (pow.f64 phi1 #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) (pow.f64 phi1 #s(literal 4 binary64)))
(/ (- (* (pow R 4) (pow phi1 4)) (* (pow R 4) (pow phi2 4))) (pow phi1 4))
(/.f64 (*.f64 (pow.f64 R #s(literal 4 binary64)) (-.f64 (pow.f64 phi1 #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) (pow.f64 phi1 #s(literal 4 binary64)))
(/ (- (* (pow R 4) (pow phi1 4)) (* (pow R 4) (pow phi2 4))) (pow phi1 4))
(/.f64 (*.f64 (pow.f64 R #s(literal 4 binary64)) (-.f64 (pow.f64 phi1 #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) (pow.f64 phi1 #s(literal 4 binary64)))
(pow R 4)
(pow.f64 R #s(literal 4 binary64))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(-.f64 (pow.f64 R #s(literal 4 binary64)) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64))))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(-.f64 (pow.f64 R #s(literal 4 binary64)) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64))))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(-.f64 (pow.f64 R #s(literal 4 binary64)) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64))))
(pow R 4)
(pow.f64 R #s(literal 4 binary64))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(-.f64 (pow.f64 R #s(literal 4 binary64)) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64))))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(-.f64 (pow.f64 R #s(literal 4 binary64)) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64))))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(-.f64 (pow.f64 R #s(literal 4 binary64)) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64))))
(pow R 4)
(pow.f64 R #s(literal 4 binary64))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(-.f64 (pow.f64 R #s(literal 4 binary64)) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64))))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(-.f64 (pow.f64 R #s(literal 4 binary64)) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64))))
(+ (* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4))) (pow R 4))
(-.f64 (pow.f64 R #s(literal 4 binary64)) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (pow.f64 R #s(literal 4 binary64))) (pow.f64 phi1 #s(literal 4 binary64))))
(* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4)))
(/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 0 binary64) (pow.f64 R #s(literal 4 binary64)))) (pow.f64 phi1 #s(literal 4 binary64)))
(* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))
(*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 R #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64))) (/.f64 (pow.f64 R #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))
(*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 R #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64))) (/.f64 (pow.f64 R #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))
(*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 R #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64))) (/.f64 (pow.f64 R #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* -1 (/ (* (pow R 4) (pow phi2 4)) (pow phi1 4)))
(/.f64 (*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 0 binary64) (pow.f64 R #s(literal 4 binary64)))) (pow.f64 phi1 #s(literal 4 binary64)))
(* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))
(*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 R #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64))) (/.f64 (pow.f64 R #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))
(*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 R #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64))) (/.f64 (pow.f64 R #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* (pow phi2 4) (- (/ (pow R 4) (pow phi2 4)) (/ (pow R 4) (pow phi1 4))))
(*.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 R #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64))) (/.f64 (pow.f64 R #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (* lambda2 (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1)))))
(*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (* lambda2 (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* -1 (* R (* lambda2 (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* -1 (* R (* lambda2 (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* -1 (* R (* lambda2 (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1)))))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda2) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* -1 (* R (* lambda2 (cos (* 1/2 phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))
(*.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))
(*.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* phi2 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2)) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))
(*.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))
(*.f64 (+.f64 (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))
(*.f64 (+.f64 (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (/ (* R (* lambda2 (cos (* 1/2 phi1)))) phi2))))
(*.f64 (+.f64 (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (* R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(+ (* -1 (* R lambda2)) (* 1/4 (* R (* lambda2 (* phi1 phi2)))))
(-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi2))) (*.f64 R lambda2))
(+ (* -1 (* R lambda2)) (* phi1 (+ (* 1/8 (* R (* lambda2 phi1))) (* 1/4 (* R (* lambda2 phi2))))))
(-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 R lambda2) phi1)) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 R lambda2) phi2)))) (*.f64 R lambda2))
(+ (* -1 (* R lambda2)) (* phi1 (+ (* 1/4 (* R (* lambda2 phi2))) (* phi1 (+ (* -1/96 (* R (* lambda2 (* phi1 phi2)))) (* 1/8 (* R lambda2)))))))
(-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 R lambda2) phi2)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/96 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 R lambda2)))))) (*.f64 R lambda2))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (- (* 1/2 (* phi2 (sin (* 1/2 phi1)))) (cos (* 1/2 phi1))))
(*.f64 R (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* R (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* R (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* R (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* R (- (* -1/2 (* phi2 (sin (* 1/2 phi1)))) (* -1 (cos (* 1/2 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) R) (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* R (cos (* 1/2 phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* phi2 (+ (* -1 (/ (* R (cos (* 1/2 phi1))) phi2)) (* 1/2 (* R (sin (* 1/2 phi1))))))
(*.f64 phi2 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* phi2 (+ (* -1 (/ (* R (cos (* 1/2 phi1))) phi2)) (* 1/2 (* R (sin (* 1/2 phi1))))))
(*.f64 phi2 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* phi2 (+ (* -1 (/ (* R (cos (* 1/2 phi1))) phi2)) (* 1/2 (* R (sin (* 1/2 phi1))))))
(*.f64 phi2 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) R) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2)))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (/ (* R (cos (* 1/2 phi1))) phi2))))
(*.f64 (+.f64 (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (/ (* R (cos (* 1/2 phi1))) phi2))))
(*.f64 (+.f64 (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) phi2))
(* -1 (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (/ (* R (cos (* 1/2 phi1))) phi2))))
(*.f64 (+.f64 (/.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 #s(literal 0 binary64) phi2))
(* -1 R)
(-.f64 #s(literal 0 binary64) R)
(- (* 1/4 (* R (* phi1 phi2))) R)
(-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) R) (*.f64 phi1 phi2)) R)
(- (* phi1 (+ (* 1/8 (* R phi1)) (* 1/4 (* R phi2)))) R)
(-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 R phi1)) (*.f64 #s(literal 1/4 binary64) (*.f64 R phi2)))) R)
(- (* phi1 (+ (* 1/4 (* R phi2)) (* phi1 (- (* -1/96 (* R (* phi1 phi2))) (* -1/8 R))))) R)
(-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 R phi2)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/96 binary64) R) (*.f64 phi1 phi2)) (*.f64 R #s(literal 1/8 binary64)))))) R)
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(- (* 1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/4 (* R (* phi1 phi2)))
(*.f64 (*.f64 #s(literal 1/4 binary64) R) (*.f64 phi1 phi2))
(* phi1 (+ (* -1/96 (* R (* (pow phi1 2) phi2))) (* 1/4 (* R phi2))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 R phi2)) (*.f64 #s(literal -1/96 binary64) (*.f64 (*.f64 R (*.f64 phi1 phi1)) phi2))))
(* phi1 (+ (* 1/4 (* R phi2)) (* (pow phi1 2) (+ (* -1/96 (* R phi2)) (* 1/7680 (* R (* (pow phi1 2) phi2)))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 R phi2)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 R phi2) #s(literal -1/96 binary64)) (*.f64 (*.f64 (*.f64 R (*.f64 phi1 phi1)) phi2) #s(literal 1/7680 binary64))))))
(* phi1 (+ (* 1/4 (* R phi2)) (* (pow phi1 2) (+ (* -1/96 (* R phi2)) (* (pow phi1 2) (+ (* -1/1290240 (* R (* (pow phi1 2) phi2))) (* 1/7680 (* R phi2))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 R phi2)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 R phi2) #s(literal -1/96 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (*.f64 R (*.f64 phi1 phi1)) phi2) #s(literal -1/1290240 binary64)) (*.f64 (*.f64 R phi2) #s(literal 1/7680 binary64))))))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 1/2 (* R (* phi2 (sin (* 1/2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* 1/2 (* R (* phi1 phi2)))
(*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 phi1 phi2))
(* phi1 (+ (* -1/48 (* R (* (pow phi1 2) phi2))) (* 1/2 (* R phi2))))
(*.f64 phi1 (+.f64 (*.f64 (*.f64 (*.f64 R (*.f64 phi1 phi1)) phi2) #s(literal -1/48 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2))))
(* phi1 (+ (* 1/2 (* R phi2)) (* (pow phi1 2) (+ (* -1/48 (* R phi2)) (* 1/3840 (* R (* (pow phi1 2) phi2)))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 R phi2) #s(literal -1/48 binary64)) (*.f64 (*.f64 (*.f64 R (*.f64 phi1 phi1)) phi2) #s(literal 1/3840 binary64))))))
(* phi1 (+ (* 1/2 (* R phi2)) (* (pow phi1 2) (+ (* -1/48 (* R phi2)) (* (pow phi1 2) (+ (* -1/645120 (* R (* (pow phi1 2) phi2))) (* 1/3840 (* R phi2))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R phi2)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 R phi2) #s(literal -1/48 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (*.f64 R (*.f64 phi1 phi1)) phi2) #s(literal -1/645120 binary64)) (*.f64 (*.f64 R phi2) #s(literal 1/3840 binary64))))))))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (* phi2 (sin (* 1/2 phi1))))
(*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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)))
(* phi1 (+ (* -1/48 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 phi1 phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/3840 (* (pow phi1 2) (sin (* 1/2 phi2))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/48 binary64)) (*.f64 (*.f64 #s(literal 1/3840 binary64) (*.f64 phi1 phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(* phi1 (+ (* 1/2 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/48 (sin (* 1/2 phi2))) (* (pow phi1 2) (+ (* -1/645120 (* (pow phi1 2) (sin (* 1/2 phi2)))) (* 1/3840 (sin (* 1/2 phi2)))))))))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/48 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal -1/645120 binary64) (*.f64 phi1 phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1/3840 binary64))))))))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (sin (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* 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)))
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(/ (* R phi2) phi1)
(/.f64 (*.f64 R phi2) phi1)
(* 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 (*.f64 R (*.f64 phi1 phi1)) #s(literal -1/46080 binary64)) (*.f64 R #s(literal 1/384 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)))

eval287.0ms (1.6%)

Compiler

Compiled 54176 to 2974 computations (94.5% saved)

prune297.0ms (1.6%)

Pruning

82 alts after pruning (77 fresh and 5 done)

PrunedKeptTotal
New1284231307
Fresh125466
Picked325
Done134
Total1300821382
Accuracy
100.0%
Counts
1382 → 82
Alt Table
Click to see full alt table
StatusAccuracyProgram
22.9%
(/.f64 (/.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 R R)) (*.f64 (*.f64 R phi1) (*.f64 R phi1))) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
10.7%
(/.f64 (/.f64 (*.f64 R (*.f64 R (*.f64 phi2 phi2))) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
12.9%
(/.f64 (/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) phi1)) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
17.4%
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
22.9%
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 R R))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
37.8%
(/.f64 (*.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) R) (+.f64 phi1 phi2))
37.0%
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (-.f64 R (/.f64 R (/.f64 phi1 phi2)))) phi1)
8.9%
(/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R R))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
38.5%
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
8.5%
(/.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1)) (+.f64 R (/.f64 (/.f64 #s(literal 1 binary64) phi1) (/.f64 #s(literal 1 binary64) (*.f64 R phi2)))))
8.5%
(/.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1)) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
11.2%
(/.f64 (*.f64 R (*.f64 phi2 phi2)) phi1)
8.6%
(/.f64 (*.f64 R (*.f64 R (*.f64 phi2 phi2))) (*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) phi1))
17.3%
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))))))
28.5%
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))))
55.3%
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 R (/.f64 phi1 phi2))))))
30.9%
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
8.8%
(-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi2))) (*.f64 R lambda2))
58.3%
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
53.1%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
20.0%
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
14.6%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (/.f64 (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))))))
60.3%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (*.f64 phi2 (/.f64 R phi1)))))
14.6%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1))))))))
57.9%
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1)))))
37.2%
(+.f64 (*.f64 R phi2) (*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi1) phi2) R)))
38.5%
(+.f64 (*.f64 R phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi1 (*.f64 phi2 phi2)))) (/.f64 R phi2))) R)))
9.3%
(*.f64 (-.f64 #s(literal 0 binary64) R) (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
32.3%
(*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))) lambda2)
4.1%
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 R phi1) (*.f64 phi2 (-.f64 (/.f64 (*.f64 R phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 R (*.f64 phi1 phi1))))))
21.1%
(*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
21.0%
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
12.1%
(*.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)))))
11.8%
(*.f64 (neg.f64 (*.f64 R lambda2)) (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)))))))
11.8%
(*.f64 (neg.f64 (*.f64 R lambda2)) (-.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))))))
11.8%
(*.f64 (neg.f64 (*.f64 R lambda2)) (+.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)))))))
14.0%
(*.f64 (neg.f64 (*.f64 R lambda2)) (+.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)))))))
6.6%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)))))))
9.3%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
7.7%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
8.2%
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
22.0%
(*.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)))))
54.7%
(*.f64 phi2 (-.f64 R (*.f64 R (/.f64 phi1 phi2))))
30.6%
(*.f64 phi2 (+.f64 R (-.f64 (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 phi2 phi2)) (/.f64 (*.f64 R phi1) phi2))))
57.4%
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
23.9%
(*.f64 phi1 (-.f64 (-.f64 (-.f64 (-.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 phi1)) (/.f64 (*.f64 R (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 phi1 (*.f64 phi1 phi1))))) (/.f64 (*.f64 phi2 #s(literal 0 binary64)) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 (*.f64 R (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 phi1))) R))
26.7%
(*.f64 phi1 (-.f64 (-.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 phi1))) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 phi1))) R))
12.6%
(*.f64 lambda2 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) R) (*.f64 phi1 phi2)) R))
17.7%
(*.f64 lambda2 (-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 R phi1)) (*.f64 #s(literal 1/4 binary64) (*.f64 R phi2)))) R))
33.6%
(*.f64 lambda2 (-.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) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 R lambda1)) lambda2)))
8.2%
(*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)))
12.7%
(*.f64 lambda2 (*.f64 R (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
33.1%
(*.f64 lambda1 (-.f64 (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
99.8%
(*.f64 R (hypot.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (-.f64 phi1 phi2)))
99.8%
(*.f64 R (hypot.f64 (/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
99.5%
(*.f64 R (hypot.f64 (/.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) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #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)))
41.2%
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 (*.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)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
89.2%
(*.f64 R (hypot.f64 (/.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)))
99.8%
(*.f64 R (hypot.f64 (+.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (-.f64 phi1 phi2)))
99.8%
(*.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)))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
81.0%
(*.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)))
81.8%
(*.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)))
88.8%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 phi1 phi2)))
89.2%
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 phi1 phi2)))
12.5%
(*.f64 R (/.f64 (/.f64 R (/.f64 phi1 (*.f64 phi2 phi2))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
40.1%
(*.f64 R (/.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (+.f64 phi1 phi2)))
40.0%
(*.f64 R (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi1 phi2) (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
61.4%
(*.f64 R (-.f64 phi2 phi1))
21.7%
(*.f64 R (*.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) phi2))))) (-.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 #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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) lambda2))
21.8%
(*.f64 R (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda2))
11.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)))
40.0%
(*.f64 R (*.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2))))
19.7%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))
12.3%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
19.5%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2))
21.0%
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2))
54.3%
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
55.1%
(*.f64 R (*.f64 phi1 (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
32.8%
(*.f64 R phi2)
55.9%
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 R (/.f64 phi1 phi2)))))
5.0%
(neg.f64 (*.f64 R lambda2))
Compiler

Compiled 5034 to 1797 computations (64.3% saved)

regimes438.0ms (2.4%)

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

9 calls:

56.0ms
(-.f64 lambda1 lambda2)
53.0ms
phi2
49.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)))
45.0ms
R
45.0ms
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
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)

regimes472.0ms (2.5%)

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

9 calls:

97.0ms
lambda1
56.0ms
(-.f64 lambda1 lambda2)
55.0ms
phi2
50.0ms
R
48.0ms
phi1
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)

regimes424.0ms (2.3%)

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

9 calls:

58.0ms
lambda1
50.0ms
phi2
48.0ms
phi1
47.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))))
43.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)))
Results
AccuracySegmentsBranch
94.0%1R
95.6%2lambda1
96.2%2lambda2
94.0%1phi1
94.0%1phi2
94.0%1(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
94.0%1(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
94.0%1(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
94.0%1(-.f64 lambda1 lambda2)
Compiler

Compiled 144 to 79 computations (45.1% saved)

regimes390.0ms (2.1%)

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

73.0ms
phi2
49.0ms
lambda2
38.0ms
R
36.0ms
(-.f64 lambda1 lambda2)
34.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
94.0%1R
94.0%1phi1
94.0%1phi2
94.0%1(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
94.0%1(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
94.0%1(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
94.0%1(-.f64 lambda1 lambda2)
94.0%1lambda1
94.0%1lambda2
Compiler

Compiled 144 to 79 computations (45.1% saved)

regimes193.0ms (1%)

Counts
87 → 2
Calls
Call 1
Inputs
(*.f64 R phi2)
(neg.f64 (*.f64 R lambda2))
(*.f64 R (-.f64 phi2 phi1))
(-.f64 #s(literal 0 binary64) (*.f64 R lambda2))
(-.f64 #s(literal 0 binary64) (*.f64 R phi1))
(-.f64 (*.f64 R phi2) (*.f64 R phi1))
(/.f64 (*.f64 R (*.f64 phi2 phi2)) phi1)
(*.f64 R (*.f64 phi1 (+.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))))
(*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R))
(*.f64 phi2 (-.f64 R (*.f64 R (/.f64 phi1 phi2))))
(*.f64 phi2 (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(*.f64 R (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(*.f64 lambda2 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) R) (*.f64 phi1 phi2)) R))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (*.f64 phi2 (/.f64 R phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(*.f64 R (/.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (+.f64 phi1 phi2)))
(+.f64 (*.f64 R phi2) (*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi1) phi2) R)))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi2 (-.f64 (/.f64 R phi2) (/.f64 R phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (*.f64 phi2 (*.f64 R (/.f64 #s(literal 1 binary64) phi1))))))
(-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi2))) (*.f64 R lambda2))
(/.f64 (*.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) R) (+.f64 phi1 phi2))
(*.f64 R (*.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2))))
(*.f64 R (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi1 phi2) (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 R (/.f64 R (/.f64 phi1 phi2))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (*.f64 R R)) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (-.f64 R (/.f64 R (/.f64 phi1 phi2)))) phi1)
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 R R))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
(*.f64 R (/.f64 (/.f64 R (/.f64 phi1 (*.f64 phi2 phi2))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(*.f64 lambda2 (-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 R phi1)) (*.f64 #s(literal 1/4 binary64) (*.f64 R phi2)))) R))
(/.f64 (*.f64 R (*.f64 R (*.f64 phi2 phi2))) (*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) phi1))
(/.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1)) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
(/.f64 (/.f64 (*.f64 R (*.f64 R (*.f64 phi2 phi2))) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
(*.f64 phi2 (+.f64 R (-.f64 (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 phi2 phi2)) (/.f64 (*.f64 R phi1) phi2))))
(/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 (/.f64 #s(literal 1 binary64) phi1) (*.f64 R R))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
(/.f64 (*.f64 (*.f64 R phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 R lambda2) phi1)) (*.f64 #s(literal 1/4 binary64) (*.f64 R (*.f64 phi2 lambda2))))) (*.f64 R lambda2))
(/.f64 (*.f64 (*.f64 R R) (/.f64 (*.f64 phi2 phi2) phi1)) (+.f64 R (/.f64 (/.f64 #s(literal 1 binary64) phi1) (/.f64 #s(literal 1 binary64) (*.f64 R phi2)))))
(+.f64 (*.f64 R phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 R (/.f64 phi1 (*.f64 phi2 phi2)))) (/.f64 R phi2))) R)))
(*.f64 R (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 phi2 phi2) (*.f64 phi1 (+.f64 phi1 phi2))) (-.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (*.f64 phi1 (*.f64 phi1 phi1))))))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 R phi1) (*.f64 phi2 (-.f64 (/.f64 (*.f64 R phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 R (*.f64 phi1 phi1))))))
(/.f64 (/.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 R R)) (*.f64 (*.f64 R phi1) (*.f64 R phi1))) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (/.f64 (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (*.f64 (+.f64 R (/.f64 R (/.f64 phi1 phi2))) (-.f64 R (/.f64 R (/.f64 phi1 phi2))))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1)))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
(/.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 R (/.f64 R (/.f64 phi1 phi2))))
(*.f64 phi1 (-.f64 (-.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 phi1))) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 phi1))) R))
(*.f64 (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))) (*.f64 (-.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))) (-.f64 #s(literal 0 binary64) phi1)))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 (-.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R (*.f64 R phi2)) phi1) (/.f64 phi2 phi1))) (/.f64 #s(literal 1 binary64) (+.f64 R (/.f64 (*.f64 R phi2) phi1))))))
(*.f64 R (*.f64 (/.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (+.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi2 (*.f64 phi2 phi2)))) (+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (-.f64 phi2 phi1)))))
(-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 R (*.f64 phi2 lambda2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/96 binary64) R) (*.f64 lambda2 (*.f64 phi1 phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 R lambda2)))))) (*.f64 R lambda2))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))))) (+.f64 R (/.f64 R (/.f64 phi1 phi2)))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (/.f64 (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1))))) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 (-.f64 (*.f64 R (*.f64 R R)) (/.f64 (*.f64 (*.f64 R phi2) (*.f64 (*.f64 R phi2) (*.f64 R phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 R R) (*.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 R (/.f64 (*.f64 R phi2) phi1))))))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))) (*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1))))))))
(/.f64 (/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1))) (-.f64 (*.f64 R R) (/.f64 (*.f64 R phi2) (*.f64 (/.f64 phi1 (*.f64 R phi2)) phi1)))) phi1)) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
(/.f64 (/.f64 (*.f64 (-.f64 (*.f64 R (*.f64 R (*.f64 R R))) (*.f64 (/.f64 R (/.f64 phi1 (*.f64 R phi2))) (*.f64 (/.f64 phi2 phi1) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2))))))) (-.f64 #s(literal 0 binary64) phi1)) (+.f64 (*.f64 R R) (/.f64 (/.f64 phi2 phi1) (/.f64 phi1 (*.f64 R (*.f64 R phi2)))))) (+.f64 R (/.f64 (*.f64 R phi2) phi1)))
(*.f64 phi1 (-.f64 (-.f64 (-.f64 (-.f64 (+.f64 (/.f64 (*.f64 R phi2) phi1) (+.f64 (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 phi1)) (/.f64 (*.f64 R (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 phi1 (*.f64 phi1 phi1))))) (/.f64 (*.f64 phi2 #s(literal 0 binary64)) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 (*.f64 R (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 phi1))) R))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
(*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
(*.f64 lambda2 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 #s(literal 0 binary64) R)))
(*.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 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(*.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 (-.f64 #s(literal 0 binary64) R) (*.f64 lambda2 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(-.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 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))) lambda2)
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 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
phi2
33.0ms
R
29.0ms
(-.f64 lambda1 lambda2)
28.0ms
lambda2
26.0ms
lambda1
Results
AccuracySegmentsBranch
91.8%2lambda1
89.2%1R
89.2%1lambda2
94.0%2phi1
94.0%2phi2
89.2%1(-.f64 lambda1 lambda2)
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes100.0ms (0.5%)

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

3 calls:

34.0ms
phi2
27.0ms
phi1
23.0ms
lambda1
Results
AccuracySegmentsBranch
89.2%1lambda1
89.2%1phi1
89.2%1phi2
Compiler

Compiled 18 to 15 computations (16.7% saved)

regimes180.0ms (1%)

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

5 calls:

54.0ms
phi1
37.0ms
lambda1
23.0ms
lambda2
22.0ms
phi2
22.0ms
R
Results
AccuracySegmentsBranch
64.0%2R
65.2%3lambda1
68.0%2lambda2
66.4%3phi1
67.9%3phi2
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes43.0ms (0.2%)

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

1 calls:

21.0ms
lambda2
Results
AccuracySegmentsBranch
67.3%2lambda2
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes37.0ms (0.2%)

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

1 calls:

19.0ms
lambda2
Results
AccuracySegmentsBranch
67.3%2lambda2
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes32.0ms (0.2%)

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

1 calls:

19.0ms
lambda2
Results
AccuracySegmentsBranch
67.2%2lambda2
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes32.0ms (0.2%)

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

1 calls:

19.0ms
lambda2
Results
AccuracySegmentsBranch
67.2%2lambda2
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes72.0ms (0.4%)

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

3 calls:

33.0ms
phi2
17.0ms
phi1
17.0ms
lambda2
Results
AccuracySegmentsBranch
61.4%1phi1
64.8%2phi2
63.6%2lambda2
Compiler

Compiled 18 to 15 computations (16.7% saved)

regimes31.0ms (0.2%)

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

5 calls:

10.0ms
phi2
5.0ms
lambda1
5.0ms
phi1
5.0ms
R
5.0ms
lambda2
Results
AccuracySegmentsBranch
61.4%1phi1
61.4%1lambda2
61.4%1lambda1
61.4%1R
61.4%1phi2
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes24.0ms (0.1%)

Accuracy

Total -18.6b remaining (-43.3%)

Threshold costs -18.6b (-43.3%)

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

5 calls:

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

Compiled 30 to 25 computations (16.7% saved)

bsearch5.0ms (0%)

Algorithm
binary-search
Stop Event
predicate-same
Steps
TimeLeftRight
3.0ms
2.292604679083603e-292
1.1461676399415876e-291
Results
2.0ms12×0valid
1.0ms1valid
Compiler

Compiled 100 to 59 computations (41% saved)

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

bsearch43.0ms (0.2%)

Algorithm
binary-search
Stop Event
narrow-enough
Steps
TimeLeftRight
40.0ms
7.520083979183605e-11
32.39020241229702
Results
15.0ms127×0valid
9.0ms33×1valid
Compiler

Compiled 445 to 304 computations (31.7% saved)

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

bsearch45.0ms (0.2%)

Algorithm
binary-search
Stop Event
narrow-enough
Steps
TimeLeftRight
42.0ms
7.600708252948003e+40
9.88141286803213e+42
Results
31.0ms87×0valid
7.0ms25×1valid
Compiler

Compiled 276 to 185 computations (33% saved)

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

bsearch25.0ms (0.1%)

Algorithm
binary-search
Stop Event
narrow-enough
Steps
TimeLeftRight
22.0ms
6.501701386199762e+112
1.2723946406692894e+114
Results
10.0ms83×0valid
8.0ms29×1valid
Compiler

Compiled 234 to 164 computations (29.9% saved)

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

bsearch28.0ms (0.2%)

Algorithm
binary-search
Stop Event
narrow-enough
Steps
TimeLeftRight
25.0ms
6.501701386199762e+112
1.2723946406692894e+114
Results
11.0ms38×1valid
9.0ms74×0valid
Compiler

Compiled 234 to 164 computations (29.9% saved)

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

bsearch28.0ms (0.2%)

Algorithm
binary-search
Stop Event
narrow-enough
Steps
TimeLeftRight
25.0ms
6.501701386199762e+112
1.2723946406692894e+114
Results
12.0ms79×0valid
10.0ms33×1valid
Compiler

Compiled 220 to 157 computations (28.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 13.0ms
ival-mult: 4.0ms (30.7% of total)
ival-cos: 3.0ms (23% of total)
ival-sub: 2.0ms (15.3% of total)
ival-add: 1.0ms (7.7% of total)
ival-div: 1.0ms (7.7% of total)
ival-sqrt: 1.0ms (7.7% of total)
backward-pass: 1.0ms (7.7% of total)
const: 0.0ms (0% of total)

bsearch25.0ms (0.1%)

Algorithm
binary-search
Stop Event
narrow-enough
Steps
TimeLeftRight
22.0ms
6.501701386199762e+112
1.2723946406692894e+114
Results
10.0ms82×0valid
8.0ms30×1valid
Compiler

Compiled 220 to 157 computations (28.6% saved)

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

bsearch54.0ms (0.3%)

Algorithm
binary-search
Stop Event
narrow-enough
Steps
TimeLeftRight
51.0ms
2.6646116102397554e+30
2.1863362048066584e+32
Results
40.0ms53×1valid
7.0ms59×0valid
Compiler

Compiled 241 to 164 computations (32% saved)

Precisions
Click to see histograms. Total time spent on operations: 40.0ms
ival-mult: 30.0ms (74.2% of total)
ival-cos: 3.0ms (7.4% of total)
ival-add: 2.0ms (4.9% of total)
ival-sub: 2.0ms (4.9% of total)
ival-div: 1.0ms (2.5% of total)
ival-sqrt: 1.0ms (2.5% of total)
backward-pass: 1.0ms (2.5% of total)
const: 0.0ms (0% of total)

simplify72.0ms (0.4%)

Algorithm
egg-herbie
Rules
650×distribute-lft-neg-in_binary64
410×neg-mul-1_binary64
332×neg-sub0_binary64
326×cancel-sign-sub_binary64
254×distribute-lft-neg-out_binary64
Iterations

Useful iterations: 4 (0.0ms)

IterNodesCost
089295
1147295
2193295
3233294
4279293
5340293
6431293
7647293
81014293
91300293
101524293
111729293
121832293
131913293
141946293
151951293
Stop Event
saturated
Calls
Call 1
Inputs
(*.f64 R (hypot.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.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)))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
(if (<=.f64 lambda2 #s(literal 2247116418577895/5617791046444737211654078721215702292556178059194708039794690036179146118921905097897139916325235500660003558745981042426837180275450519452901482207483566386805246669527046414884444362538940441232908842252656430276192208823201965046059784704400851161354703458893321819998351435577491134526104885300757004288 binary64)) (*.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 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 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
(if (<=.f64 phi2 #s(literal 6139076427730539/9444732965739290427392 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 lambda2 #s(literal 1550000000000000077309979896551297735720960 binary64)) (*.f64 R (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))) lambda2))
(if (<=.f64 lambda2 #s(literal 190000000000000016626606094492524701939097184900135205797565353364436146082369873682553469079958535205436549758976 binary64)) (*.f64 R (-.f64 phi2 phi1)) (*.f64 lambda2 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(if (<=.f64 lambda2 #s(literal 1200000000000000018671299355360211629121841676305273720043724696517000537397706843917982467898056937211447537041408 binary64)) (*.f64 R (-.f64 phi2 phi1)) (*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)))
(if (<=.f64 lambda2 #s(literal 225000000000000003500868629130039680460345314307238822508198380596937600762070033234621712730885675727146413195264 binary64)) (*.f64 R (-.f64 phi2 phi1)) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(if (<=.f64 lambda2 #s(literal 509999999999999994264985196134265415048643792944607797561274052937147500732959118602936303860574678167907846848512 binary64)) (*.f64 R (-.f64 phi2 phi1)) (*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(if (<=.f64 phi2 #s(literal 28000000000000001682669402324992 binary64)) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (*.f64 phi2 (/.f64 R phi1))))) (*.f64 R (-.f64 phi2 phi1)))
(*.f64 R (-.f64 phi2 phi1))
(*.f64 R phi2)
Outputs
(*.f64 R (hypot.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 #s(literal 0 binary64) (*.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 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 lambda2 lambda1))) (-.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)))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)))
(*.f64 R (hypot.f64 (*.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))))) (-.f64 phi1 phi2)))
(if (<=.f64 lambda2 #s(literal 2247116418577895/5617791046444737211654078721215702292556178059194708039794690036179146118921905097897139916325235500660003558745981042426837180275450519452901482207483566386805246669527046414884444362538940441232908842252656430276192208823201965046059784704400851161354703458893321819998351435577491134526104885300757004288 binary64)) (*.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 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 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
(if (<=.f64 phi2 #s(literal 6139076427730539/9444732965739290427392 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 lambda2 #s(literal 1550000000000000077309979896551297735720960 binary64)) (*.f64 R (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2))) lambda2))
(if (<=.f64 lambda2 #s(literal 1550000000000000077309979896551297735720960 binary64)) (*.f64 R (-.f64 phi2 phi1)) (*.f64 lambda2 (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))))
(if (<=.f64 lambda2 #s(literal 190000000000000016626606094492524701939097184900135205797565353364436146082369873682553469079958535205436549758976 binary64)) (*.f64 R (-.f64 phi2 phi1)) (*.f64 lambda2 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(if (<=.f64 lambda2 #s(literal 1200000000000000018671299355360211629121841676305273720043724696517000537397706843917982467898056937211447537041408 binary64)) (*.f64 R (-.f64 phi2 phi1)) (*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)))
(if (<=.f64 lambda2 #s(literal 1200000000000000018671299355360211629121841676305273720043724696517000537397706843917982467898056937211447537041408 binary64)) (*.f64 R (-.f64 phi2 phi1)) (*.f64 R (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(if (<=.f64 lambda2 #s(literal 225000000000000003500868629130039680460345314307238822508198380596937600762070033234621712730885675727146413195264 binary64)) (*.f64 R (-.f64 phi2 phi1)) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(if (<=.f64 lambda2 #s(literal 225000000000000003500868629130039680460345314307238822508198380596937600762070033234621712730885675727146413195264 binary64)) (*.f64 R (-.f64 phi2 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 R lambda2)))
(if (<=.f64 lambda2 #s(literal 509999999999999994264985196134265415048643792944607797561274052937147500732959118602936303860574678167907846848512 binary64)) (*.f64 R (-.f64 phi2 phi1)) (*.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2)))
(if (<=.f64 lambda2 #s(literal 509999999999999994264985196134265415048643792944607797561274052937147500732959118602936303860574678167907846848512 binary64)) (*.f64 R (-.f64 phi2 phi1)) (*.f64 R (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(if (<=.f64 phi2 #s(literal 28000000000000001682669402324992 binary64)) (-.f64 #s(literal 0 binary64) (*.f64 phi1 (-.f64 R (*.f64 phi2 (/.f64 R phi1))))) (*.f64 R (-.f64 phi2 phi1)))
(if (<=.f64 phi2 #s(literal 28000000000000001682669402324992 binary64)) (*.f64 phi1 (-.f64 (*.f64 phi2 (/.f64 R phi1)) R)) (*.f64 R (-.f64 phi2 phi1)))
(*.f64 R (-.f64 phi2 phi1))
(*.f64 R phi2)

soundness3.1s (16.6%)

Rules
7706×*-lowering-*.f32
7706×*-lowering-*.f64
7342×*-lowering-*.f32
7342×*-lowering-*.f64
7318×*-lowering-*.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0119114083
1423613672
0870613672
01716
13416
28316
331716
4152216
5514516
0813816
01749
18849
276849
0843349
07456936
126156244
084816244
055366
1365216
23834212
09058212
037191
1218176
21868173
09513173
0111716755
1408615668
0885215668
Stop Event
fuel
iter limit
node limit
iter limit
node limit
iter limit
node limit
iter limit
node limit
iter limit
node limit
iter limit
node limit
iter limit
node limit
Compiler

Compiled 1260 to 759 computations (39.8% saved)

preprocess133.0ms (0.7%)

Remove

(sort phi1 phi2)

(sort lambda1 lambda2)

(negabs R)

Compiler

Compiled 1558 to 712 computations (54.3% saved)

end0.0ms (0%)

Profiling

Loading profile data...